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W sprawie kolportażu... 










I TY MOŻESZ BYĆ KOLPORTEREM "KEBABA"! 





Chcielibyśmy zainteresować naszą propozycją te osoby fizyczne i praw- 
ne, które chciałyby się podjąć kolportażu we własnym zakresie. Zapew- 
nimy jednocześnie co najmniej tygodniowe wyprzedzenie przed 
przekazaniem nakładu do dystrybucji przez krajowego kolportera. Zapra- 
szamy do współpracy studia komputerowe, księgarnie i obrotne osoby 
indywidualne. Szczegółowych informacji idziela się telefonicznie i w sie- 
dzibie redakcji. 


... reklamy ... 


Przedsiębiorstwo KEBAB spółka z o.o. oferuje Państwu szybką i tanią 
obsługę reklamową. Ogłoszenia drobne od osób indywidualnych (do 10 
słów na wyciętym z numeru kuponie) przyjmujemy bezpłatnie. Większe 
- 1000 zł za słowo. Reklamy ramkowe (minimalny format - 20 cm kwadra- 
towych): 1 cm? - 4500 zł: cała strona - 2,5 miliona zł. dodatkowy kolor 
- odpowiednio 50% drożej. „Ogłoszenia na IV stronie okładki: cała - 
4 miliony zł: 1/2 - 2,5 miliona zł”. Treść ogłoszeń przyjmujemy za 
pośrednictwem poczty (adres - patrz stopka redakcyjna) lub „Media 
Banco Brocker” Sp. z o.0.: 02-555 Warszawa, Al. Niepodległości 177: 
tel. 253684: fax. 257899. Ogłoszenia wraz z określeniem formatu 
reklamy prosimy nadsyłać listem poleconym. Dołączenie odcinka wpłaty 
znacznie przyspieszy zamieszczenie ogłoszenia. 


... Ii prenumeraty. 


Aby uporać się z problemem ciągłego wzrostu cen usług poligraficznych, 
papieru itp. i uniknąć dokonywania przez Czytelników Kłopotliwych do- 
płat, postanowiliśmy wprowadzić tzw. małą prenumeratę w okresach 
3-miesięcznych. Rozwiązanie to gwarantuje Czytelnikom niezmienność 
ceny w okresie, który obejmuje zamówienie. Cenę egzempiarza wraz z 
kosztem usługi pocztowej skalkulowaliśmy na 9500 zł. Daje to następu- 
jące możliwości: 


numery 7, 8, 9 - 28500,- 
KEBAB sp. z o.o. 


Pomorski Bank Kredytowy l Oddział w Szczecinie 
konto nr: 368113-25771-136 


Należy również podać DOKŁADNY ADRES, IMIĘ 4 NAZWISKO zamawia- 
jącego! 
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Nowości z kraju i ze świata... 





Gsparaca barw to proces wyko- 
rzżystywany w poligrafii podczas 
przygotowywania kolorowych mate- 
riałów do druku. W przypadku kom- 
puterów oznacza ona konwersję 
grafiki i tekstu z formatu RGB (lub 
innego używanego przy wyświetla- 
niu obrazu na monitorze) na CMYK 
celem właściwego odwzorowania 
barw na papierze. I tu ciekawostka. 
Otóż Z notatki „Ventura dia Win- 
dows” zamieszczonej w majowym 
numerze „Bajtka” dowiadujemy się, 
iż: „Dotychczas (tzn. do momentu 
pojawienia się pakietu Ventura 4.0 
tor Windows - przyp. KEBAB'a) tylko 
programy pracujące na komputerach 
Macintosh potrafiły dokonać tzw. se- 
paracji kołorów (...)'. Bardzo nam 
miło, że teraz także na pecetach 
będzie można robić DTP z prawdzi- 
wego zdarzenia, niemniej uważamy 
za celowe napomknąć. iż dla Amigi 
już dłuższy czas istnieją programy 
umożliwiające przeprowadzanie 
wspomnianej separacji na poziomie 
profesjonalnym - ot, choćby Art De- 
partment Professional, PageStream, 
Saxon Publisher czy Professional 
Page. i że w swej fascynacji „pra- 
wdziwymi” (w przeciwieństwie do 
„zabawkowej” Amigi) komputerami 
nie nałeży o tym zapominać, a co 
za tym idzie - dezinformować Czy- 
telników! 


Jo ponad rocznej ciszy w temacie 

„tracker'y” pojawił się wreszcie 
w kwietniu tego roku produkt Petera 
Hanninga z grupy Noxious - ProTrac- 
ker 2.1a. Program bazuje na kodzie 
źródłowym wersji 2.0 autorstwa gru- 
py Amiga Freelancers, i jak nietrud- 
no się domyślić jest jej rozwinięciem. 
Większość zmian ma jednak chara- 
kter wyłącznie kosmetyczny, ze zna- 
czniejszych zaś warto wymienić 
współpracę z biblioteką powerpac- 
ker.iibrary pozwałającą na operowa- 
nie danymi (modułami i sampłami) 
w skompresowanej formie. opcję 
odczytu i zapisu pojedynczych ście- 
żek i pattern'ów oraz możliwość 
podania nazwy modułu do załado- 
wania po uruchomieniu programu 
jako argumentu w CLI lub Workben- 
ch'u. Usprawniono również komuni- 
kację z użytkownikiem i usunięto 
wiele drobnych błędów, czyniąc nie- 
stety kilka nowych. Najbardziej rzu- 
cają się w oczy kłopoty z 
zarządzaniem pamięcią uniemożli- 
wiające poprawną pracę programu 
na komputerach pozbawionych 
SLOW lub FAST RAM-u. Dyskusyjny 
jest również bardzo pamięciożerny 
sposób ładowania skompresowa- 
nych danych - odbywający stę za 
pośrednictwem ramdysku i wymaga- 
jący co najmniej dwukrotnie wię- 
kszej ilości wolnej pamięci niż 
zajmuje aktualnie ładowany mo- 
dul/sampling Ponadto, jak sam 
przyznaje twórca programu, nie był 
on zbyt wnikliwie testowany pod 
kontrolą systemu KickStart 2.0, nie 
należy się zatem dziwić ewentual- 


nym „kwiatkom” mogącym ujawnić 
się przy pracy z nowym ROMem. Z 
lektury dokumentacji dołączonej do 
ProTrackera 2.1a można wnieść iż 
autor pełen jest zapału do pracy, co 
pozwala spodziewać się kolejnych, 
„odpiuskwionych” wersji programu 
w niedalekiej przyszłości. A ma się 
w nich pojawić między innymi pełna 
obsługa MIDI, syntetyczne dźwięki, 
współpraca z intuition (a więc pełny 
multitasking) itd. Pozostaje tylko cze- 
kać... 


kolei firma Electronic Arts wypu- 

ściła niedawno upgrade do pro- 
gramu Dełuxe Paint IV. Najnowsza 
wersja tego niezwykle popularnego 
pakietu graficznego nosząca numer 
4.1 jest odpowiedzią firmy na uwagi 
i sugestie zgłaszane przez użytkow- 
ników i beta-testerów (osoby zajmu- 
jące się testowaniem 
oprogramowania jeszcze przed jego 
wypuszczeniem na rynek, ale już po 
alfa-testingu dokonywanym w pra- 
cowniach autorów), jest zatem jesz- 
cze wygodniejsza w obsłudze, nieco 
szybsza fw trybie HAM) i bardziej 
dostosowana do  Kickstartu 2.0. 
Szczegółów szukajcie w następnym 
Kebabie. 


ydaje się, że w dziedzinie pro- 

dukcji sprzętowych rozszerzeń 
przeznaczonych do Amigi będziemy 
już wkrótce mieli światowego mo- 
nopolistę. Wcale jednak nie będzie 
nim firma Commodore. GVP - tak 
prawdopodobnie brzmi hasło przy- 
szłości Amigi. Firma ta, po niemal 
całkowitym zdominowaniu amery- 
kańskiego rynku "Amigowców", sta- 
wia coraz śmielsze kroki w Europie. 
Nie ma zresztą czemu się dziwić. 
Najwyższej klasy technologia w po- 
łączeniu z doskonałymi konstrukcja- 
mi oraz w niczym im nie 
ustępującym _ oprogramowaniem, 
powoduje, że niemal każdy produkt 
określany przymiotnikami "najle- 
pszy”, "najszybszy” itp. posiada pla- 
kietkę Great Valley Products. 
G-Force 030 "combo", G-Force 040, 
Impact Vision 24 czy Digital Sound 
Studio to tylko najbardziej przebojo- 
we produkty spod znaku "Wielkiej 
Doliny". Firma nie ogranicza się jed- 
nak do samodzielnego konstruowa- 
nia. Porozumienie z niemiecką firmą 
Vortex Computersysteme GmbH do- 
prowadziło do powstania "GVP 
PC286-16', czyli inaczej mówiąc 
ATonce plus w wersji dostosowanej 
do współpracy z innymi urządzenia- 
mi GVP. Przykładowo ATonce w 
wersji GVP instaluje się nie jak w 
przypadku oryginalnego Vortex'a w 
gniazdo procesora, lecz umieszcza 
się go w obudowie twardego dysku 
dołączanego do A500 z boku. Roz- 
wiązanie takie gwarantuje kompaty- 
bilność z kontrolerem naszego 
"twardziela" oraz pozostawia zdecy- 
dowanie więcej luzu wewnątrz i tak 
dosyć ciasnej obudowy  stand- 
ardowej Amigi 500 


ZE” ze swoich produktów serii 
„Pro” firma Gold Disk wypuściła 
niedawno oprócz kolejnej wersji pro- 
gramu DTP - Professional Page V3.0 
także pakiet kalkułacyjny o nazwie 
Professional Calc. Niestety specjali- 
ści od marketingu firmy Gold Disk 
zdecydowali się na skuteczne ogra- 
niczenie sprzedaży tego skądinąd 
bardzo dobrego programu ustalając 
cenę na bardzo wysokim poziomie. 
Przykładowo około 600,- DM w Nie- 
mczech. 


| ul Commodore wprowadziła 
na rynek kolejną kartę z serii 
Bridgeboard. Karta nazywa się 
A2386SX i jest emulatorem kompu- 
tera serii AT386S$X z zegarem 20 
MHz. 


ównież znana z emulatorów 

ATonce firma Vortex produkuje 
już kartę emułacyjną AT386SX dla 
Amigi. 


M" komputerowych efe- 
któw video ucieszy z pewnością 
fakt pojawienia się na rynku progra- 
mu do cyfrowej obróbki obrazu o 
nazwie image Master. Pakiet ten 
działający na podobnych zasadach 
co znany już od dłuższego czasu 
„Art Department" posiada jednak 
sporo nowych możliwości. Jako jed- 
ną z najbardziej fascynujących na- 
łeży wspomnieć funkcję „morphing”. 
Przykłady działania takiej funkcji 
mieliśmy możliwość oglądać w ie- 
gendamym już Terminatorze 2. Co 
prawda nie oznacze to, że przy 
użyciu Amigi uda nam się stworzyć 
od razu Terminatora 3, ale jakość 
efektów uzyskiwanych przy użyciu 
tej funkcji Image Master'a jest we- 
dług czasopism zachodnich niewia- 
rygodnie wysoka. Program nie jest 
konkurencją dla ADPro, iecz jego 
doskonałym uzupełnieniem. 


trzecim kwartale bieżącego 
roku firma Fujitsu ma rozpo- 
cząć seryjną produkcję przedstawio- 
nych na targach CEBIT 92 napędów 
magneto-optycznych dysków trzy i 
pół calowej średnicy. Dyski takie 
przypominające z wyglądu normal- 
ną dyskietkę 3.5 potrafią aktualnie 
pomieścić 128MB danych. Dzięki 
zastosowaniu standardowego łącza 
SCSI-2 nie powinno być probłemów 
z podłączeniem takiego napędu do 
Amigowego kontrolera. 


olejne karty grafiki 24-0 bitowej 

ia Amigi zostały wprowadzone 

na rynek. „Rembrandt” oraz „Rain- 
bow” lo karty, które potrafią wyświet- 
lić na ekranie obraz w 1310720 
kolorach jednocześnie ! Ktoś mógł- 
by powiedziec: No i co z tego? 
Przecież karty 24-0 bitowe potrafią 
pokazać 16777216 kolorów jedno- 
cześnie... | tu tkwi poważny błąd 
logiczny, na który dali się ziapać 
swego czasu równiez nasi poważni 
dealerzy od Macintosh'ów Otóz je- 


żeli nawet każdy punkt na ekranie 
będzie miał inną barwę od wszy- 
stkich pozostałych, to i tak przy 
rozdzielczości 640x512 zobaczymy 
(ieżeli nam się uda) „zaledwie” 
327680 kolorów. Przy rozdzielczości 
1280x1024 oferowanej przez nowe 
karty, liczba ta wzrasta do wspo- 
mnianego już miliona trzystu dzie- 
sięciu tysięcy... 


Z z różnych ciekawostek fir- 
ma Rossmoeller ma zamiar wpro- 
wadzić na rynek prawdziwą 
niespodziankę. Ma to być turbo kar- 
ta, czyli inaczej mówiąc „dopalacz” 
lub „coś z kopem”, przeznaczona 
dla... Commodore 64. Przypomnij- 
my. że firma ta produkowała już 
swego czasu podobne urządzenie, 
jednakże wysoka cena oraz spora 
niekompatybiiność _ spowodowała, 
że „Turbo Process" nie zyskał zbyt 
wielkiej popułarności. Tym razem 
ma być inaczej. Karta ma obsługiwać 
do 4MB (!) RAM, a zainstalowany na 
niej procesor 65816 ma być takto- 
wany z częstotliwością 8MHz (!) Po- 
winno to dać efekty w postaci sześć 
do osiem razy większej szybkości 
obliczeń. Firma zapewnia przy tym, 
że tym razem zostanie zachowana 
wysoka kompatybilność z oryginal- 
nym systemem operacyjnym C-64. 
Aby przy tych wszystkich superlaty- 
wach nie trzeba było „wiekami” cze- 
kać na operacje dyskowe. zostanie 
również zainstałowany superszybki 
system operacji dyskowych na wzór 
Dolphin- czy Prologic-Dos. 


Jora niespodzianką będzie wypu- 
szczenie na rynek emułatora C-64 
przeznaczonego dla komputera... 
Acorn Archimedes. Związane jest to 
prawdopodobnie z polityką rynkową 
firmy Acom, która po niepowodzeniu 
swojego produktu na rynku prole- 
sjonalnym stara się aktualnie wpro- 
wadzić Archimedesa jako komputer 
dla byłych posiadaczy C-64. Dła 
Czytelników, którzy nie słyszeli nigdy 
nic o tym komputerze kilka wyjaś- 
nień. Acorn Archimedes to szybki 
komputer zbudowany w oparciu o 
procesor tzw. typu RISC. Spore mo- 
żliwości graficzne do 640x512 i 
1056x256 punktów w 256 kolorach 
jednocześnie. paleta 4096 kolorów 
oraz system operacyjny umożliwia- 
jący muiltitasking, to cechy, które 
zbliżają go do Amigi. Natomiast 
szybkość obliczeń jest w przypadku 
32-bitowych procesorów RISC zna- 
cznie większa. Przykładowy test na- 
pisany (w BASIC'u) potrzebował do 
wykonania się na C-64 ponad cztery 
godziny, na Amidze (Amiga BASIC) 
już "tylko" 55 minut. Natomiast BA- 
SIC znajdujący się w ROM'ie Archi- 
medesa A3000 zajmował się tym 
samym testem przez 3 minuty i 17 
sekund (dane liczbowe za MAT 
64'er). Dźwięk jest przekazywany 
poprzez osiem niezależnych kana- 
łów siereo 
SD! 
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Quo Vadis ? 


komputerze... 


omputery. Zastępują czło- 

wieka tam gdzie jego szyb- 

kość myślenia i zdolność 
do zapamiętywania okazują się 
niewystarczające wobec wymogów 
współczesnej cywilizacji. TÓ znaczy 
prawie wszędzie. liość dziedzin ży- 
cia, których jeszcze nie opanowały 
maleje z dnia na dzień w postępie 
geometrycznym. Spotykamy je na 
każdym kroku - ciche, usłużne, 
szybkie, na ogół nie dające powo- 
dów do narzekań. Częstokroć nie- 
zauważalne. Gdy jednak z ich 
pomocą człowiek wykona kolejny 
krok w stronę realizacji swoich ma- 
rzeń, znajdują się na ustach wszy- 
stkich. Takim krokiem w dziedzinie 
techniki filmowej był „Terminator 
2... 
Komputery zaczęto wykorzystywać 
w kinematografii kiedy tylko okaza- 
ło się, że rozdzielczość ich grafiki 
oraz paleta barw nadają się do tego 
celu. Poczynając od sławetnego 
TRON'a, poprzez takie filmy jak The 
Last Starfigher, gdzie wszystkie po- 
jazdy i sekwencje ich walki w kos- 
mosie zrealizowano wyłącznie przy 
użyciu komputerów, czy Young 
Sherlock Holmes (w polskich ki- 
nach pod tytułem Piramida Stra- 
chu) z robiącym niesamowite 
wrażenie, wyłaniającym się z witra- 
ża rycerzem, twórcy efektów Spe- 
cjalnych wspinali się na kolejne 
stopnie trudnej sztuki omamienia 
widza. Jedna szczególnie pracow- 
nia - Industrial Light 6 Magic - 
osiągnęła na tym polu spore Su- 
kcesy. W ILM wykreowano, jeszcze 
technikami konwecjonalnymi, tak 
znane postaci jak na przykład Darth 





Vader czy E.T. Teraz, korzystając 
z pomocy 340 terminali Silicon 
Graphics VGX firma szokuje nas 
komputerowym ogniem (Backdraft) 
i wodą (The Abbys), których reali- 
styczna animacja do niedawna za- 
krawała na niemożliwość. Również 
za stworzeniem T1000, mogącego 
przybrać dowolny kształt robota z 
filmu „Terminator 2" stoją ludzie z 
ILM, a konkretnie zespół poprowa- 
dzony przez Steve'a Williamsa. On 
sam zresztą twierdzi: „Efekty filmo- 
we były takie same przez sto lat i 
zmieniają się tego roku”. Brak skro- 
mności? Nie wydaje 
się, szczególnie po 
obejrzeniu linoleum 
zmieniającego się w 
człowieka. 

W produkcję T2 zain- 
westowano ogromną 
sumę stu milionów do- 
larów, zaś największą 
część tej kwoty, 
oprócz honorarium Ar- 
nolda Schwarzeneg- 
ger' a wynoszącego 12 
mln., pochłonęły właś- 
nie efekty specjalne. 
Pierwszym etapem 
stworzenia T1000 było 
dokładne przeniesie- 
nie wymiarów oraz 
sposobu poruszania 
się Roberta Patricka - i 
aktora, który dał cy- 
borgowi jego ludzką | 
postać - do pamięci 
komputera. Czekało to 
również wszystkie 
obiekty docelowe, tak 
więc między innymi pi- 





lot śmigłowca, opiekunka 
Johna i strażnik szpitalny zo- 
stali przy użyciu techniki skan- 
ningu laserowego 
przetworzeni na reprezenta- 
cję wire-form (na ekranie wy- 
gląda ona jak druciana siatka 
- stąd nażwa), skądinąd zna- 
ną użytkownikom programów 
do ray-tracingu Do oblicze- 
nia faz pośrednich użyto al- 
gorytmu zwanego True 
Infinite Morphing, który nawiasem 
mówiąc staje się coraz bardziej 
popularny (umieszczono go np. w 
programie image Master dla Ami- 
gi). Potem należało już „tylko” po- 
łączyć wygenerowane 
komputerowo postaci ze scenogra- 
fią (w istocie był to najtrudniejszy 
fragment operacji - Czytelnikom 
bardziej obeznanym z programo- 
waniem i technikami ray-tracing'u 
polecamy rozważenie algorytmu, 
który stworzył odbicie otoczenia na 
metalicznym korpusie T1000) i 
przeliczyć, korzystając z matema- 
tycznie opisanych praw fizyki. 
Do obliczeń użyto trzydziestu 
sprzęgniętych w sieć minikompute- 
rów, dzięki czemu dało się zredu- 


CYROSY 
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kować czas potrzebny na ich prze- 
prowadzenie do niezbędnego mi- 
nimum. Koszty - jedna ramka około 
$100, minuta filmu - $150.000, ja- 
kość - to po prostu trzeba zoba- 
czyć. 

Obecnie, po olbrzymim sukcesie 
Terminatora 2, ILM pracuje nad 
efektami do filmu Stevena Spieiber- 
ga Jurassic Park, w którym poja- 
wiają się dinozaury w interakcji z 
postaciami ludzkimi. Jako, że Spiel- 
berg ma bardzo wysokie wymaga- 
nia co do realizmu obrazu, w użyciu 
będą komputery w połączeniu z 
metodami tradycyjnymi. Jeden z 
animatorów ILM miał rzekomo po- 
wiedzieć, iż będzie to projekt „dzie- 
sięciokrotnie trudniejszy niż 


stworzenie robota T1000”, co jed- 
nak nie przeszkodziło firmie podjąć 
się owego zadania. 

Wobec niezwykle dynamicznego 
rozwoju tej nowej dziedziny sztuki 
(przypomnijmy, iż metamorfoza 
(ang. morphing) po raz pierwszy 
pojawiła się w filmie Willow z 1988 
roku) rodzi się pytanie jak będą 
wyglądały efekty specjalne za pięć, 
dziesięć lat? Williams mówi: „Daw- 
no zmarli prezydenci pojawią się, 
komputerowo wygenerowani w te- 
lewizji, dając przemówienia. Akto- 
rzy, którzy umarli 50 lat temu będą 
występować obok aktorów współ- 
czesnych. Mogiibyśmy nawet stwo- 
rzyć takich, którzy nigdy się nie 
narodzili (...)”. Możliwości są jak 


więc widać ogromne, niewątpliwie 
jednak aż taki rozwój technik ani- 
macji komputerowej pociągnie za 
sobą szereg dyskusji natury etycz- 
no-morainej, wynikających z możli- 
wości manipulowania opinią 
publiczną. To jest jednak temat na 
odrębny artykuł, ten zaś zakończ- 
my słowami Williamsa: „W końcu 
jest to jeszcze jeden rodzaj ołówka. 
Jeśli jest w rękach kogoś, kto nie 
potrafi rysować, to sam z siebie też 
nic nie stworzy." 


Miłosław „Thorgal” Smyk 


W artykule wykorzystano materiały 
z „Time'a”. 





Baza Danych 


dla Commodore 64 


ziś w KEBABIE coś dia 

miłośników programów w 

jj BASIC - prosta BAZA 
DANYCH. No cóż, działać to to 
działa ale ze względu na ograni- 
czone zasoby pamięci Commodore 
64, będzie to najwyżej spis telefo- 
nów lub ksiażek w biblioteczce. Od 
czegoś jednak trzeba zaczynać. 
Pewnie nie wszyscy wiedzą, Co to 
jest baza danych. Tym terminem 





programów przeznaczonych do 
tych celów i oto jeden z nich czeka 
na chwilę cierpliwości przy jego 
wpisywaniu. 

Może opiszmy obsługę tego pro- 
gramu na przykładzie naszego 
księgozbioru. ile danych potrzebu- 
jemy, żeby opisać książkę? 
Dwóch, trzech czy pięciu? Może 
przyjmijmy taki układ: 


danych). Komputer pyta nas o 
nazwę dla naszych informacji więc 
podajemy mu np.  „biblioteka”. 
Następnie podajemy mu ilość klu- 
czy opisujących każdy zapis (każ- 
dą książkę) - w naszym przypadku 
4, a następnie wprowadzamy ich 
nazwy (tytuł, autor, itd.). Po po- 
wrocie do głównego menu i wybra- 
niu opcji 4 (operacje na zapisach) 
komputer prosi nas o podanie pier- 
wszego zapisu. Dłaczego? Dlate- 
go, iż warunkiem operowania na 
jakichś danych jest posiadanie 
choćby jednego zapisu - jeżeli go 
nie ma, komputer prosi o jego 
wprowadzenie. Zrobi tak tylko 
pierwszy raz, potem będzie już od 
razu uruchamiał podprogram prze- 
glądania danych. 

W opcji przeglądania zapisów moż- 
na je przeglądać w/g ich kolejności 
zapisu w pamięci lub zawartości 
kluczy, kasować wybrane zapisy 
lub wprowadzać nowe. Podczas 


zwykło się określac pewien zbiór  1.Tytuł 
zapisów o określonej strukturze, _2.Autor 
który umożliwia łatwy dostęp do  3.Wydawnictwo - ZAKLADANIE BAZY 


ODCZYT BAZY (DYSK) 

ZAPIS BAZY (DYSK) 

OPERACJE NA ZAPISANYCH DANYCH 
— GORTONANIE DANYCH W/G KLUCZA 


danych. Mogą one być wyszukiwa- _4.Komu pożyczono 
ne na podstawie zadanego klucza 
(np. proszę wyświetlić mi na ekra- 
nie wszystkie tytuły książek, które 
pożyczyłem mojemu koledze, itp.). 
Aby w ten sposób zapisywać i 
operować danymi, stworzono wiele 


Myślę, że powinno wy- 
starczyć. Po urucho- 
mieniu programu 
wybieramy opcję pier- 
wszą (zakładanie bazy 


DOKONANYCH ZAPISOW: 8 








Nr 6 '92 


8 KEDAMR 





COMMODORE 





wyszukiwania zapisu możemy się 
posługiwać zawartością pól-kluczy, 
np. gdy chcemy przejrzeć wszy- 
stkie książki konkretnego autora. 
Gdy nie pamiętamy dokładnie jego 
nazwiska, wystarczy wprowadzić 
tylko jego początkowe litery, a te, 
których nie jesteśmy pewni, należy 
zastąpić znakiem „?”. Po wprowa- 
dzeniu szukanego nazwiska, kom- 
puter przeszuka wszystkie zapisy 
w poszukiwaniu książek napisa- 
nych przez tego autora. Po znale- 
zieniu każdego z poszukiwanych 
zapisów następuje jego wydruko- 
wanie na ekranie i pytanie o po- 
zwolenie kontynuacji szukania. 


Zdefiniowaną bazę danych może- 
my zapisać na taśmę lub dyskietkę 
- urządzenie można każdorazowo 
wybrać przed zapisem. To samo 
dotyczy się operacji odczytu. Przy 
starcie programu typ urządzenia 
jest ustawiany zgodnie z urządze- 
niem ostatnio przez użytkownika 
używanym. 

Ostatnią opcją jest sortowanie. Po- 
lega ono na przestawieniu zapisów 
w pamięci według określonej kolej- 
ności (alfabetycznej lub rosnącej). 
Po wybraniu tej opcji komputer 
drukuje nam na ekranie wszystkie 
nazwy kluczy i prosi o wskazanie 
tego, w/g którego odbyć się ma 





sortowanie. Po wykonaniu 
obliczeń wszystkie zapisy 
znajdują się już w nowej ko- 
lejności. 

Nasza mała baza danych mo- 
że pomieścić maksymalnie 
300 zapisów gdzie każdemu 
z nich można przydzielić ma- 
ksymalnie do dziesięciu klu- 
czy. Cały program sprawdza 
się u mnie dobrze jako pod- 
ręczna książka telefoniczna. 


Paweł „Polonus” Sołtysiński 


Listing nr 1 na str. 30 


Masterseka-HELP 





Na prośbę wielu Czytelników, prezentujemy poniżej ko- 
mendy edycyjne i dyrektywy (przetłumaczony zbiór 
"HELP") asemblera „MasterSeka v1.71”. 


Polecenia występujące w pliku 'S:MasterSeka.startup': 
-a adres * Alokacja obszaru roboczego od podanego 
adresu absolutnego. 

-b znacznik : ScroliBar 0-brak, 1-z prawej, 2-z lewej. 

- : Alokacja obszaru roboczego w Chip-Ram. 

-e iłość : Ilość linii edytora. 

-h ilość : Ilość użytych poleceń debuger'a, dostępnych za 
pomocą klawiszy kursor-góra, kursor-dół. 

-] znacznik : Numeracja lini O-wyłączona, 1-włączona. 

-r znacznik : Rodzaj użytego requestera 0-żaden, 1-arp.li- 
brary, 2-req.library. 

-s ilość : Ilość bit-plane'ów dla ekranu Seki, jeśli O to 
otworzy okno. 


Połecenia debugger'a (dane opcjonalne w nawiasach 
kwadratowych): 

= : Informacja o wiełkości source'a, objektu, tablicy 
relokacji, danych. 

7 (wyr. arytm.] : Podręczny kalkulator. 

a : Asemblacja. 

b : Przejście do dołu source'a w edytorze. 

b Adres : Obliczenie sumy kontrolnej dla BootBlock'u. 

c : Porównanie obszarów pamięci. 

cł : Kasowanie source'a z edytora. 

cis . Czyszczenie ekranu. 

cs Tworzenie tablicy sinusów (niezbędna bibiloteka 
mathtrans.library). 

d [adres] * Disasemblacja. 

f : Przeszukiwanie pamięci 

fi : Wypełnianie pamięci. 

g [adres] : skok pod adres (JMP). 

h : Patrz „=". 

i [adres] : skok pod adres (JSP). 

kf . Kasowanie pliku z urządzenia zewnętrznego. 

ks . Kasowanie source'a z edytora. 

m [adres] : Modyfikacja pamięci. 

n [adres] : Wyświetlanie 2 ASCII. 

o : Odzyskanie source'a po „ 

q (adres] : Wyświetlanie ank pamięci. 

r [ nazwa pliku] : Odczyt source'a. 

r [ nazwa pliku] : Odczyt pliku. 

ro [ nazwa pliku] : Odczyt objektu, czyli segmentu. 

rs [numer napędu] : Odczyt sektorów. 

rt [numer napędu] : Odczyt tracków. 

s-adres] : Tryb „trace” - śledzenie wykonywania programu. 
t [numer iinii] : Przejście do góry source'a w edytorze lub 
skok do podanej iinli. 

v [ścieżka] : Odczyt katalogu. 

v ścieżka : Zmiana katalogu. 

w [ nazwa pliku] : Zapis source'a. 

wb znacznik : O - zamknięcie workbench'a, 1 - otworzenie 
workbench'a. 
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Arexx... 


... Część druga 


erdecznie zapraszamy do 
S lektury rozpoczętego 

przed miesiącem krótkie- 
go przewodnika po ARexx'ie. 


Trochę komplikacji. 

Czy kiedykolwiek zdarzyło się Wam 
podczas pisania programu, że po- 
trzebowaliście tablicy kodów AS- 
CII? Idę o zakład, że tak. Czemu 
więc nie ułatwić sobie życia i nie 
napisać stosownej procedury w 
ARexxie? Taki program przedsta- 
wia listing 2. Mamy w nim coś 
nowego: pętlę i instrukcję warun- 
kową. Zastosowana pętla jest jed- 
ną z najprostszych oferowanych 
przez Rexx'a (w sumie mamy chyba 
5 typów pętli). Żaczyna się stowem 
kluczowym „DO”. Pozostała część 
instrukcji jest taka sama jak dla 
FOR w Basicu - mamy zmienną 
sterującą „i”, ograniczenie dolne i 
górne. Gdybyśmy chcieli określić 
skok zmiennej sterującej (domyśl- 
ny to t), powinniśmy to zrobić tak: 


DO i=32 TO 127 BY 2 


aby przebiec wartości od 32 do 127 
co 2. Pętla kończy się instrukcją 
„END”. Nowa dla Was jest jeszcze 
instrukcja warunkowa. Nie różni się 
ona od tych używanych w Basicu 
czy Pascalu i wygląda następująco: 


IF <WarunekLogiczny> THEN 
<instrukcja> 

ELSE 
<instrukcja> 


Jeżeli <WarunekLogiczny> jest 
spełniony, to zostanie wykonana 
instrukcja po THEN, w przeciwnym 





wypadku - po ELSE. Należy zauwa- 
żyć, że zarówno po THEN, jak i 
ELSE może być tylko jedna instru- 
kcja. Może to być jednak tzw. in- 
strukcja złożona składająca się z 
dowolnej ilości instrukcji prostych. 
Tworzymy ją przez umieszczenie 
żądanych instrukcji pomiędzy sło- 
wami kluczowymi DO i END, jak w 
przykładzie: 


IF 1=1l THEN 


DO 
a='True' 
okayl a 

END 

ELSE 

DO 
a='False' 
Okayl a 

END 


W naszym programie pojawia się 
jeszcze jedna nowa funkcja: 

D2C (numer) 

Zwraca ona znak o kodzie ASCII 
równym wartości <numer>. Myślę, 
że po tych wyjaśnieniach sposób 
działania programu jest już jasny. 
Niestety, pierwsza próba urucho- 
mienia procedury przynosi rozcza- 
rowanie - czemu tak wolno? Tutaj 
ujawnia się największa wada ARex- 
x'a - powolność działania. 
Należy w tym miejscu za- 
znaczyć, że wszystkie 
wbudowane funkcje są do- 
syć szybkie, ale przetwa- 
rzanie pętli, - instrukcji 
warunkowych wprowadza 
znaczące opóźnienia. No 
cóż, może w przyszłych 
wersjach ARexx'a (ten ar- 
tykuł oparty jest o wersję 
1.15) zostanie to poprawio- Eg 
ne. Ale... pomyślmy. Nasz ** 


KENDA 


program za każdym razem tworzy 
tabelę na nowo. A przecież wystar- 
czyłoby ją zrobić raż, przechować 
gdzieś w pamięci i przy każdym 
kolejnym uruchomieniu tylko od- 
czytywać. Czy jest to jednak możli- 
we? Oczywiście, wystarczy 
spojrzeć na listing 3. 

Jak widać w tym przypadku odwo- 
łujemy się do tzw. „Clipboard'u”. 
Clipboard to po prostu coś w ro- 
dzaju zmiennej, która pozostaje w 
pamięci nawet po zakończeniu wy- 
konywania programu w przeciwień- 
stwie do normalnych zmiennych, 
które po wykonaniu programu ule- 
gają skasowaniu. Do obsługi clip- 
board'ów używamy dwóch funkcji: 
GETCLIP(Nazwaclipboard'u) 
zwraca ona zawartość danego clip- 
board'u, lub ciąg pusty w przypad- 
ku, gdy clipboard nie istnieje. 
SETCLIP(NazwacClipboard 'u, Tekst) 
zapisuje do odpowiedniego clipbo- 
ard'u podany przez nas tekst. 
Warto zauważyć, w jaki sposób 
wywoływana jest ta druga funkcja. 
Mianowicie: 

CALL Funkcja(parametry). 

Takie odwołanie „mówi” ARexocowi, 
że nie interesuje nas wynik działa- 
nia funkcji i może zostać pominięty. 


Trochę czarnej magii. 

Zadanie, jakie teraz przed nami 
stoi, to zapewnienie użytkownikowi 
Cygnusa możliwości obliczania wy- 
rażeń arytmetycznych. W tradycyj- 
nych językach (Pascal, C) odbywa 
się to poprzez mozolne analizowa- 
nie ciągu tekstowego. ARexx robi 
to jedną instrukcją. Na początku 
programu (listing 4) występują dwie 
nowe instrukcje. 

OPTIONS RESULTS deklaruje, że 
program użytkowy (w tym wypadku 
CED), z którym zamierzamy się 
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komunikować, będzie nam coś 
przekazywał. 

SIGNAL ON SYNTAX powoduje na- 
tomiast, że w przypadku napotka- 
nia błędu składniowego nie wystąpi 
przerwanie wykonywania progra- 
mu, ale skok do etykiety SYNTAX. 
Etykieta ta znajduje się na końcu 
programu. 

GETSTRING (instrukcja Cygnusa) 
powoduje wyświetlenie na ekranie 
Cygnusa okienka (podobnego do 
tego, jakie pojawia się np. przy 
wybraniu opcji „Search”), do które- 
go możemy wpisać tekst. Wprowa- 
dzony przez nas ciąg jesteśmy w 
stanie odczytać ze zmiennej ARex- 
x'a o nazwie RESULT. Na podobnej 
zasadzie działają instrukcje Cygnu- 
sa GETNUMBER i GETFILENAME 
- służą one odpowiednio do pobie- 
rania liczb lub wybierania nazw 
plików. Podane przez użytkownika 
wyrażenie natychmiast musimy za- 
pamiętać w jakiejś zmiennej, bo- 
wiem zawartość RESULT bardzo 
często się zmienia. Musimy nastę- 
pnie sprawdzić, czy użytkownik 
rzeczywiście nam coś przekazał. 
Jeżeli bowiem wybrano „Cancel”, 
to zmienna RESULT przyjmie war- 
tość „RESULT” (sic!), a gdy naciś- 
nięto tyko RETURN - zawierać 
będzie ciąg pusty. W tym przypad- 
ku stosujemy operator logiczny 
AND (znaczek 8) i NOT (znaczek 
=). Należy zauważyć, że nie mo- 
żemy napisać w ARexx'ie na przy- 
kład tak: 


IF 1<>2 THEN .. 
a jedynie 
IF 1=2 THEN ... 


chociaż oba te zapisy znaczą do- 
kładnie to samo, tyle że w innych 
językach. Inne dozwolone operato- 
ry logiczne to OR (znaczek |) XOR 
(znaczek ©). Jeżeli użytkownik coś 
wprowadził, to tekst ten składamy 
z ciągiem „a=". Na przykład jeżeli 
wpisane zostało „23+45*2"”, to w 
zmiennej Oblicz znajdzie się tekst: 
a=23+45*2 

który bądź co bądź przypomina 
wyrażenie z Rexx'a... Jeżeli zaś 
przypomina - czemu by go nie 
obliczy? Dokonujemy iego instru- 
kcją: 
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INTERPRET <tekst> 


traktującą <tekst> jako fragment 
programu w Rexx'ie i interpretującą 
go. W przypadku wprowadzenia 
przez użytkownika sensownego 
wyrażenia, zostanie ono obliczone, 
zaś otrzymana wartość będzie 
przypisana zmiennej <a>, która 
następnie zostanie wydrukowana. 
Gdy natomiast wyrażenie nie jest 
poprawne, to nastąpi skok do ety- 
kiety SYNTAX i użytkownik będzie 
powiadomiony o fakcie popełnienia 
błędu. Nowa dia Was instrukcja: 


EXIT <KodPowrotu> 


powoduje zakończenie wykonywa- 
nia programu i zwraca programowi 
wywałującemu kod błędu (0 ozna- 
cza poprawne zakoczenie; teorety- 
cznie więc powinniśmy ustawić kod 
błędu na np. 5, co oznaczałoby 
błąd, ale to w naszym przypadku 
niesie wyłącznie niedogodności). 
Myślę, że warto na marginesie 
wspomnieć, jakiego typu liczby i 
operatory arytmetyczne akceptuje 
ARexx. Jeżeli chodzi o liczby, to 
dopuszczalne są wszystkie - zmien- 
noprzecinkowe lub stałoprzecinko- 
we - wartości w granicach od 
-1E308 do 1E308 (tak w przybliże- 
niu). Prócz 4 typowych operacji 
arytmetycznych (+ - * /) i nawiasów 
mamy też: 

* potęgowanie. oznaczane dwoma 
gwiazdkami (np. 2 do potęgi trze- 
ciej zapisujemy jako 2**3); 

* resztę z dzielenia (wspomniana 
już wyżej operacja „modulo”), czyli 
podwójna ukośna kreska (np. re- 
sztę z dzielenia 40 przez 3 wyrazi- 
my jako 40//3 i jest ona równa 1); 
* dzielenie całkowite, oznaczane 
przez znak procent (np. dzielenie 
całkowite 23 przez 7 zapiszemy 
przez 23%7). Nie ma natomiast 
funkcji pierwastka, logarytmów czy 
funkcji trygonometrycznych (choć 
są one dostępne w specjalnej bib- 
liotece). 


Last but not least. 

Ostatni (już słyszę ten jęk zawodu!) 
prezentowany w tym miejscu pro- 
gram będzie prawdziwie profesjo- 


nalny. Za podobną „twórczość” 
niektórzy ludzie biorą grube pienią- 
dze - a tu dostajecie go za darmo 
No, ale do rzeczy. Zamierzam 
przedstawić Wam prosty (co wcale 
nie znaczy, że prymitywny!) 
słownik. Mógł on powstać 
dzięki wspaniałym możliwo- 
ściom Cygnusa. Zauważcie 
bowiem, że edytor ten prze- 
prowadza wyszukiwanie te- 
kstów z piorunującą wręcz 
szybkością. Druga jego istotna ce- 
cha to możliwość jednoczesnej 
edycji do dziesięciu tekstów. Mam 
nadzieję, iż teraz zrozumieliście już 
mój zamysł - po prostu jednym z 
tekstów Cygnusa będzie nasz 
słownik, w którym przy użyciu 
opcji „Search” będziemy do- 
konywać wyszukiwania. Teraz 
wystarczy już tylko napisać 
stosowny program w ARex- 

x'ie. Ponieważ zawiera on już 
wcześniej poznane elementy języ- 
ka, nie zamierzam go omawiać - 
zwłaszcza, że posiada komentarze. 
Warto natomiast poświęcić kilka 
słów jego obsłudze. 

Pierwsze, co musimy zrobić, to 
wczytać słownik do Cygnusa 
(przez użycie opcji „Open new” i 
„Open...”), przy czym powinien on 
nosić nazwę „Dictionary.txt” (drob- 
na modyfikacja w programie po- 
zwala na zmianę tego warunku). 
Jeżeli nie mamy słownika, to musi- 
my go założyć - otwieramy nowy 
tekst, naciskamy RETURN dla 
wprowadzenia pustej linii (ważne!) 
i nagrywamy plik jako „Dictiona- 
ry.txt”. W celu wyszukania jakiegoś 
słowa naciskamy odpowiedni kla- 
wisz funkcyjny i... na ekranie poja- 
wia się okienko, gdzie 
wprowadzamy poszukiwany wyraz. 
Jeżeli zostanie on znaleziony, to 
program wyświetli jego definicję; w 
przeciwnym wypadku - będziemy 
poproszeni o podanie opisu i słow- 
nik zostanie uzupełniony o nowe 
słowo. Możemy zresztą na własną 
rękę wypełnić słownik. Należy jed- 
nak trzymać się następujących za- 
sad: 

- słowo i jego definicja muszą mie- 
Śścić się w jednej linii. W przypadku 
wprowadzania długich określeń 
możemy odpowiednio zmienić po- 
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Zakończenie. 

W swoim artykule starałem się po- 
kazać zastosowanie Amigi od stro- 
ny praktycznej. ARexx bardzo w 
tym pomaga - i jest to chyba jedna 


home - dom, mieszkanie 
computer - komputer 

Do słownika można wprowadzić 
wiele ulepszeń, przykładowo stosu- 
jąc kompresję opisów. 


łożenie prawego marginesu); 

- format wprowadzanych definicji 
powinien być następujący: 
<słowo> <spacja> <myślnik> < 
spacja> <opis słowa> 


Na przykład: 


A> 


A - REAIE A i 


naoś 
BR) 


BZ 


pę 
ER 
ROEE R ZENE RL ZPECZE NI 


ESL 
WUESŁŻ 


EE IRCZ 
wale ct ZR 


DRJEŁ: 
Dw M 


a 


sai TP YO * 


Ą Pa DORDTA 
SOC ar NECJ 
SRA SPOJCEEA PY fi 
RE TWKZNIEŚ 


z przyczyn, dla których Commodo- 
re tak gorąco go popiera. Możliwe, 
że już za rok istnienie w programie 
interface'u dla ARexx'a będzie ko- 
niecznością i np. będę Wam mógł 
zaprezentować kilka makro-proce- 
dur dla Deluxe Paint'a 5... Tymcza- 
sem jednak, ze względu na brak 
na naszym rynku książek o ARex- 
x'ie, jedynym sposobem nauczenia 
się programowania w tym języku 
jest próbowanie, próbowanie i je- 
szcze raz próbowanie. Wielu nocy 
spędzonych przy klawiaturze ży- 
czy: 


Michał Łętowski 


Listingi nr 2,3,4,5 na str. 
32 





Piszemy po polsku ! 


polskie litery dla C-64 


robilem polskich znaków 

we własnych programach 

pisanych w BASIC (i nie 
tylko) potrafi być uciążliwy dla po- 
czątkujących programistów. To 
nie to samo co poczciwy ZX Spec- 
trum, tu nie definiuje się nowych 
znaków przy pomocy jednego roz- 
każu BASIC. Instalowanie własne- 
go liternictwa jest czasami bardzo 
kłopotliwe nawet dla tych, którzy 





znają zasady ale robią to po raz 
pierwszy. 

Aby więc maksymalnie to ułatwić, 
przygotowaliśmy cały zestaw zna- 
ków wraz z polskimi znakami spe- 
cjalnymi. Program „Polskie Znaki 
64” należy wpisać do pamięci kom- 
putera przy pomocy KOREKTORA 
lub przy użyciu dowolnego moni- 
tora z tym, że pomijamy wtedy kody 
kontrolne, umieszczone w nawia- 
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sach. Przy okazji przenieśliśmy 
ekran tekstowy z obszaru $0400- 
$07e8 do $c400-$c7e8. Taka zmia- 
na umożliwiła przesunięcie 
początku pamięci dla programów 
w języku BASIC o 1024 bajty w dół, 
co daje nam 1 kilobajt więcej dla 
realizacji naszych planów. 

Po zainstalowaniu polskich znaków 
możemy wgrywać do pamięci 
wszystkie posiadane programy w 
BASIC, pod warunkiem, że nie od- 
wołują się do pamięci ekranu za 
pomocą instrukcji POKE (jak np. 
zamieszczona w tym numerze gra). 


Paweł Sołysiński 


Listing nr 6 na str. 33 
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PC-Task 


czyli udawania „Big Blue” ciąg dalszy... 


poprzednim numerze Ke- 

baba przedstawiliśmy dwa 

sprzętowe emulatory kom- 
putera IBM PC dla Amigi. Mają one 
swe plusy i minusy w dziedzinie 
szybkości i kompatybilności. jed- 
nakże dla przeciętnego użytkowni- 
ka najbardziej znacząca i 
jednocześnie zniechęcająca do ku- 
pna będzie cena owych przysta- 
wek, nierzadko przekraczająca 
połowę wartości nowej Amigi 500. 
Wady tej nie posiadają rozwiązania 
programowe, co prawda sporo wol- 
niejsze, ale jeśli idzie o zgodność 
z oryginałem nie pozostające w tyle 
za swymi wyekwipowanymi w hard- 
ware kuzynami. Jednym z no- 
wszych takich emulatorów jest 
PC-Task autorstwa Chrisa Hamesa 
z Australi. 
PC-Task v1.04 umożliwia nam pra- 
cę w trybie MDA lub CGA czym już 
na starcie bije sporo starszego 
Transtormera, który jak pamiętamy 
nie posiadał trybu graficznego ani 
kolorów. Wyboru rodzaju karty gra- 
ficznej dokonujemy przy urucha- 
mianiu programu korzystając z 
estetycznie zaprojektowanego pa- 
nelu, pozwalającego nam także na 
ustalenie ilości pamięci jaka będzie 
do dyspozycji MS-DOS'u, nazwy 
urządzeń mających stać się odpo- 
wiednikami IBM'owskich stacji A: i 
B: oraz twardego dysku C: i D: (nic 
zatem nie stoi na przeszkodzie po- 
siadaczom zasobnych w pamięć 
operacyjną komputerów w umiesz- 
czeniu „twardziela” na RAM-dysku, 
która to podmiana znacznie przy- 
spiesza pracę w przypadku progra- 
mów często odwołujących się do 
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plików tymczasowych), typu po- 
rtów jakie emulator będzie obsługi- 
wał i, uwaga, priorytetu z jakim 
uruchomi się PC-Task. Tak, to nie 
pomyłka, program pracuje w mul- 
titaskingu, zapewniając jednoczes- 
ny dostęp do aplikacji MS- i Amiga- 
DOS'u. Co prawda oprócz oczywis- 
tych korzyści niesie to za sobą 
także pewne niedogodności, a mia- 
nowicie podobnie jak w przypadku 
sprzętowego ATonce opóźnienia w 
dostępie do dysku i nieznaczne 
zmniejszenie prędkości działania. 
Są one jednakże pomijalne, szcze- 
gólnie dla osób przyzwyczajonych 
do pracy z Amigą (użytkowników 
PC może początkowo konfudować 
konieczność odczekania kilku se- 
kund przed uzyskaniem dostępu 
do właśnie włożonej dyskietki). Z 
kolei już podczas emulacji mamy 


PG-Task V1.04. Copyright 1992 Chris Hames. ALI rights reserved. 
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możliwość uruchomienia handlera 
myszy, dzięki któremu nasz amigo- 
wy gryzoń może współpracować z 
takimi programami jak na przykład 
Norton Commander czy Turbo Pa- 
scal 6.0. 

Tempo z jakim PC-Task „prze- 
dziera” się przez kod proce- 
sora 8086 nie jest być może 
oszałamiające, należy jednak 
pamiętać, że każdy dodatko- 
wy megaherc w zegarze na- 
szej Amigi powoduje również 
wzrost szybkości pracy programu, 
co niestety nie zawsze da się po- 
wiedzieć o emulatorach sprzęto- 
wych. Testy wykazały. iż przy 
aktywnej emulacji MDA, PC- 
Task jest sporo szybszy od 
Transtformera - nawet do 
dwóch razy - szczególnie gdy 
wykonywanych jest wiele ope- 
racji na ekranie. Prędkość ob- 
liczeń oszacowaliśmy nieco 
inaczej niż zwykle, zamiast bowiem 
skorzystać z System Info Nortona, 
zmierzyliśmy czas kompilacji ty- 
siąca linii typowego programu z 
wykorzystaniem Turbo Pascala 5.5. 
Rezulaty są następujące: Transfor- 
mer v1.21 - 1 min. 48 sek., PC-Task 
(MDA) - 1 min. 19 sek., PC-Task 
(CGA) - 2 min. 50 sek. Ten ostatni 
rezultat byłby z pewnością lepszy 
na Amidze wyposażonej w prawdzZi- 
wy FAST RAM, jako że poprawne 
przedstawienie szesnastokolo- 
rowego trybu tekstowego CGA wy- 
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maga użycia czterech bitplane ów 
o wysokiej rozdzielczości, a to po- 
ciąga za sobą znaczne spowolnie- 
nie wykonywania programu 
umieszczonego w pamięci CHIP 
lub SŁÓW. 

Trzeba przyznać, że na zwykłej, 
nieprzyspieszonej Amidze 500 czy 
2000 żółwie tempo pracy PC-Task- 
'a niezwykle utrudnia wykorzysty- 
wanie go do jakichkolwiek 
poważniejszych zadań. Warto jed- 
nak pamiętać iż jeszcze kilka lat 
temu, w dobie komputerów XT, 
tempo to należało do przeciętnych 
i zupełnie wystarczało do tworzenia 


złożonych aplikacji w dajmy na to, 
Turbo Pascalu. Tak więc emulator 
można polecić osobom posiadają- 
cym sporą dozę cierpliwości, tu- 
dzież szczęśliwym właścicielom 
Amig 3000 lub tzw. „dopalaczy”. 

I jeszcze kilka słów do Czytelników 
zainteresowanych kupnem opisy- 
wanego programu. Jest on do na- 
bycia drogą wysyłkową u autora 
(adres zamieszczamy poniżej) w 
cenie 35 dolarów amerykańskich. 
Za sumę tę otrzymujemy PC-Task'a 
v1.04 w wersjach dla procesora 
68000, 68010 oraz 68020 i kolej- 
nych, pełną instrukcję obsługi w 


języku angielskim, dwa programiki 
dla MS-DOSu pozwalające przesy- 
łać dane na linii IBM - Amiga po- 
przez dyskietki oraz, w wypadku 
problemów, możliwość darmowe- 
go korzystania z porad twórcy pro- 
gramu. 


Chris Hames 
6 Pamela Crt 
Blackburn Sth 
VIC 3130 
Australia 


Miłosław „Thorgal” Smyk 





Kupiłem C-64... 


i co dalej? (cz.5) 


itam wszystkich w kolej- 

W nym artykule dla „Świe- 
żych” posiadaczy 
Commodore 64. Zostało nam je- 
szcze kilka rzeczy do wyjaśnienia, 
które się Wam na pewno przyda- 
dzą w programowaniu w języku 
BASIC. Przede wszystkim zostały 
nam do omówienia tzw. zmienne 
tablicowe. Co to jest? Jeżeli chodzi 
o ich rodzaje - to bez większych 
zmian, tzn. mamy tutaj te same 
rodzaje zmiennych jak w przypad- 
ku zmiennych zwykłych, tzn. te- 
kstowe (ze znakiem $), liczbowe i 
liczbowe całkowite (ze znakiem %). 
No to gdzie te różnice, spytacie? 
Otóż, zmienne tablicowe pozwalają 
na zapisanie więcej niż jednej danej 
w jednej zmiennej. Nie można na 
przykład przypisać zmiennej A jed- 
nocześnie wartości 10,30 i 50, gdyż 
jest to po prostu niemożliwe. Aby 
tego typu operacje mogły mieć 





miejsce, zmienne takie postano- 
wiono zapisywać z dodatkowym 
parametrem, który wskazuje intere- 
sujące nas dane, np.: 


40 DIM A(3) 


20 A(1)=10:A(2)=30:A(3)=50 
30 PRINT A(1);A(2);A(3) 


Jak widać, zmienna tablicowa to 
taka zmienna, po której nazwie 
umieszcza się w nawiasach wSspo- 
mniany wyżej parametr. Zapisanie 
i odwoływanie się do takiej zmien- 
nej zawsze musi się odbywać ze 
wskazaniem, do którego pola w 
zmiennej operacja ta ma się odno- 
sić. Zwróćmy teraz uwagę na linię 
nr 10 w naszym krótkim przykła- 
dzie. Zawarty jest w niej bowiem 
specjalny rozkaz j. BASIC, który 
przygotowuje zmienną tablicową 
do pracy. Po słowie DIM wystarczy 
napisać nazwę zmiennej a w na- 


wiasie jej rozmiar. Przygotować 
zmienną tablicową należy przed jej 
użyciem, najlepiej zaraz na począt- 
ku programu lub po każdorazowym 
użyciu rozkazu CLR (kasowanie 
wszystkich zmiennych). 

Specjalne rodzaje zmiennych (te- 
kstowe i liczbowe całkowite) uzy- 
skuje się przez dodanie po ich 
nażwie parametru w nawiasach, 
np. A$(10) lub B%(2). 

O ile zasady posługiwania się tab- 
licami jednoparametrowymi są 
względnie jasne, to dwu- i trójpara- 
metrowe mogą być nieco bardziej 
kłopotliwe. O ile jednak graliście 
kiedyś na kartce papieru w kratkę 
w „bitwę morską”, to bez trudu 
„złapiecie” zasadę. Dwa parame- 
try w zmiennej tablicowej (np. 
A$(10,30) opisują położenie da- 
nych w tablicy prostokątnej (a w 
szczególnym jej przypadku - kwa- 
dratowej) na zasadzie układu 
współrzędnych. Definiowanie ta- 
kich zmiennych powinno wyglądać 
w ten sposób: np. DIM A$(20,30). 
O ile wyznaczoną tymi wymiarami 
tablicę (20 x 30) możemy sobie 
wyobrazić jako twór płaski to po- 
przez dodanie do definicji zmiennej 
tablicowej trzeciego parametru mo- 
żemy stworzyć kilka takich prosto- 
kątnych płaszczyzn, dostępnych w 
jednej zmiennej.  Definiujemy je 
analogicznie - np. DIM 
A$(10,10,10). Tablicę taką może- 
my nazwać trójwymiarową. 

Do czego najczęściej stosuje się 
takiego typu zmienne? Wszędzie, 
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gdzie napisany przez nas program 
musi gromadzić większe ilości da- 
nych i je obrabiać. Rozwiązanie 
takie daje dużo większą prędkość 
i przejrzystość programu, nie mó- 
wiąc już o jego długości. Przykład 
wykorzystania tych zmiennych mo- 
żemy znaleźć w zamieszczonym w 
tym numerze programie typu baza 
danych. 

W definicji języka BASIC znajduje 
się jeszcze kilka rozwiązań, które 
mają na celu zmniejszanie objęto- 
ści programu i zwiększenie jego 
czytelności dla późniejszego użyt- 
kownika. Jednymi z najdogodniej- 
szych są instrukcje pętli 
FOR/NEXT. Jak to działa? Obej- 
rzyjmy przykład: 


10 FOR T=1l TO 5 
20 PRINT T; 

30 NEXT T 

RUN 

12 3 4 5 


A teraz opis działania tej pętli: 
instrukcja FOR oznacza przypisa- 
nie zmiennej T (która od tej chwili 


będzie licznikiem pętli) wartości 
startowej 1. Potem następuje zde- 
finiowanie wartości końcowej po- 
przez parametr poprzedzony 
słowem TO. Oznacza on wartość, 
po osiągnieciu której następuje 
wyjście z pętli. Instrukcja NEXT T 
(gdzie T to nazwa zmiennej będą- 
cej licznikiem pętli) powoduje zwie- 
kszenie T o jeden i porównanie 
owej zwiększonej wartości z para- 
metrem 5 w linii 10. Jeżeli jest 
równy, to następuje ostatnie wyko- 
nanie tej pętli po czym program 
kontynuowany jest od miejsca za 
komendą NEXT (w naszym przykła- 
dzie nic już dalej nie ma, więc 
program się kończy w tym właśnie 
miejscu). Podczas wykonywania 
pętli powtarzany jest jest fragment 
programu pomiędzy definicją pętli 
(FOR T=1 TO 5) a jej końcem 
(NEXT T). 

Jak nietrudno zauważyć, zmienna- 
licznik pętli jest każdorazowo zwię- 
kszana o jeden. Co jednak wtedy, 
gdy chcemy, by była ona zwieksza- 
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na o np. dwa lub nawet -2? 
Do tego celu służy jeszcze 
jedna instrukcja - STEP (po 
polsku - krok), która reguluje 
wielkość, o jaką zwiększana 
jest zmienna-licznik (w na- 
szym przykładnie T). Prze- 
analizujmy ten przykład: 


10 FOR A=4 TO 8 
STEP 2 
20 PRINT A; 
30 NEXT A 
RUN 
4 6 8 


Dla dociekliwych propozycja - spró- 
bujcie wstawić po STEP np. 0.5 
zamiast 2. 

Na koniec jeden ważny szcze- 
gół - jako licznik może służyć 
jedynie zmienna liczbowa. 
Oraz jeden mniej ważny 
szczegół - po rozkazie NEXT 
możemy opuścić nazwę 
zmiennej. 


Paweł Soltysiński 





Żarłoczny robaczek ! 


prosta gra dla C-64 


tym numerze KEBABA 
W sporo dla siebie mogą 

znaleźć miłośnicy języka 
BASIC. Dla nich dedykowany jest 
ten program - prosta gra zręczno- 
ściowa. Należy go starannie prze- 
pisać i nagrać na taśmę lub 
dyskietkę przy pomocy komendy 
SAVE. Ponieważ w aktualnym od- 
cinku poradnika „Kupiłem C-64 i co 
dalej?” omawiane były między in- 
nymi zmienne tablicowe, zdecydo- 
wałem się napisać prostą grę, 





gdzie użycie tablic zapewniałoby 
należytą prędkość programu. 

A o co chodzi w samej grze? Po 
jej uruchomieniu należy poczekać 
kilkadziesiąt sekund, aż komputer 
przygotuje odpowiednie dane dla 
zmiennej tablicowej. Rozpoczęcie 
gry odbywa się później poprzez 
wciśnięcie przycisku FIRE na joy- 
stick'u podłączonym do portu dru- 
giego. Joystick iem sterujemy 
ruchami naszego bohatera - żarło- 
cznego robaczka. Robaczki zwy- 


kle zajmują się jedzeniem więc i 
nasz nie jest tu wyjątkiem. Jego 
ulubionym pokarmem są okrągłe 
czekoladki (O). Jako pokarm mu- 
szą być one bardzo wydajne, bo- 
wiem zjedzenie każdej z nich 
powoduje przyrost naszego roba- 
czka o jeden element. Sterowanie 
owadem staje się coraz trudniejsze, 
zważywszy iż nadgryzienie otacza- 
jącego pole gry murku, jego poja- 
wiających się elementów oraz 
uszkodzenie samego siebie kończy 
grę! Pomimo swojej prostoty, gra 
wydaje się być wciągająca (mój 
rekord to 83 punkty!) oraz da na 
pewno wiele materiału do przemy- 
śleń dla początkujących programi- 
stów. 


Miłej zabawy życzy wszystkim Czy- 
telnikom 


Paweł Sołtysiński 


Listing nr 7 na str. 34 
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Digi Tiger II 


najszybszy z powolnych 


iektórzy z naszych Czytel- 
N ników pamiętają jeszcze z 

pewnością czasy  pier- 
wszej fascynacji Amigą i jej możli- 
wościami graficznymi. Na rok 1985 
były one faktycznie niesamowite. 
Przypomnijmy sobie, że wtedy C-64 
był jednym z najlepszych kompu- 
terów w tej dziedzinie (mimo tego, 
że nie znano jeszcze rozmaitych 
kruczków programowych umożli- 
wiających uzyskanie jeszcze le- 
pszych rezultatów). W królestwie 
„poważnych informatyków” wystę- 
pował IBM PC ze swoją Świtą „sę- 
pów” tj. rozmaitych firm i firemek 
konstruujących (bądź tylko kopiu- 
jących) komputery na wzór wielkie- 
go „Big Blue”. Standardem grafiki 
w tym królestwie były dwie karty o 
dumnie brzmiących nazwach - 
„Hercules Graphics Card” oraz 
„Color Graphics Adapter”. Pier- 
wszą z nich należy chyba (mimo 
kiku wad typu brak koloru czy 
niestandardowe proporcje wymia- 
rów punktów) uznać za jedną z 
najbardziej udanych (co potwier- 
dziło się w praktyce) konstrukcji dla 
zastosowań biurowych. Efekty uzy- 
skiwane przy użyciu tej drugiej 
(CGA) nie dorównywały niestety 
tym, które można uzyskać na C-64. 
Ale to już na szczęście (dla miłoś- 
ników standardu PO) historia. W tą 
właśnie historię wkroczyła Amiga. 
4096 kolorów jednocześnie na 
ekranie, 16 kolorów jednocześnie 
przy rozdzielczości 640x400 (512) 
punktów (nie znano jeszcze odpo- 
wiedników efektów typu FLI na C- 
64 które umożliwiają uzyskanie 
całej palety kolorów na ekranie w 
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najwyższej rozdzielczości - Dyna- 
mic Hires) to możliwości, które za- 
mknęły na dłuższy czas usta 
konkurencji a prasa fachowa okre- 
ślała je przymiotnikami typu „ama- 
zing”, „fantastic” czy 
„photo-realistic”. Oczywiście nie po 
polsku bo nasi rodzimi „specjaliści” 
byli wówczas na etapie zachwala- 
nia wciskanego klientom przez mo- 
nopolistyczny jeszcze „Pewex” 
komputera Atari 800. To na szczę- 
ście (dla nas - Commodore'owców) 
również już tylko historia. Jedno z 
pierwszych zastosowań jakie się 
nasunęło na myśl tym, którzy po- 
stanowili sprawdzić co właściwie 
warta jest ta cała Amiga to... cyfro- 
we przetwarzanie obrazu. Przy oka- 
zji pojawiły się też pierwsze 
programy demonstracyjne wyko- 





rzystujące animację digitalizowa- 
nych (jeżeli jesteś miłośnikiem czy- 
sto polskich określeń - czytaj: 
przetworzonych na postać cyfro- 
wą) obrazów. Aby taki obraz uzy- 
skać potrzebne jest tzw. digitizer 
czyli specjalne urządzenie, które 
dokona wyżej wspomnianego prze- 
tworzenia. Różne są metody uzy- 
skiwania cyfrowej postaci obrazu 
(na przykład ręczny skaner to rów- 
nież swego rodzaju digitizer). Nas 
jednak dzisiaj interesować będą 
tylko digitizery umożliwiające prze- 
tworzenie obrazu zakodowanego w 
tzw. standardzie Composite Video 
(patrz słowniczek). Dzisiaj, w cza- 
sach gdy w bardzo wielu domach 
znajdują się magnetowidy, a w nie- 
których również amatorskie kamery 
video, nietrudno o uzyskanie takie- 
go sygnału. Większość kamer oraz 
magnetowidów domowych posia- 
da wyjścia sygnałowe pracujące w 
tym właśnie standardzie. Jeżeli ma- 
my już źródło sygnału tzn. kamerę 
lub magnetowid to szybko kupuje- 
my sobie video digitizer... tak... tu 
zaczynają się pierwsze kłopoty. 
Rozpiętość cenowa jest spora. Od 
około 2 min zł. do... strach pisać 
ile! Aby uchronić się (i Czytelników) 
od zbędnych szoków nerwowych, 
założymy sobie następujące pun- 
kty, którymi będziemy się kierować 
przy wyborze sprzętu. Po pierwsze 
nasz digitizer powinien przetwa- 
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——— GTE 





Tak przedstawia się nasz mały tygrys... 


rzać obrazy zarówno czarno-białe 
jak i kolorowe. Po drugie cena nie 
powinna przekraczać granic przy- 
zwoltości. No i wybór się uprasz- 
cza. W zasadzie mamy tylko cztery 
możliwości: Digi-View Gold 4.0 + 
RGB Splitter, Deluxe View + RGB 
Splitter, Deluxe View wersja Proline 
One oraz... No właśnie! Digi Tiger 
Il. Cena wszystkich tych zestawów 
jest bardzo zbliżona. Różnice wy- 
stępują w szybkości działania oraz 
w jakości przetwarzania obrazu. Ze 
względu na bardzo wysokie noto- 
wania osiągnięte w testach nieza- 
leżnych czasopism zachodnich 
postanowiliśmy „wziąć na warsztat” 
ostatnie z wyżej wymienionych 
urządzeń. Digi Tiger Il to (podob- 
nie jak Deluxe View wersja Proline 
One) zintegrowany w jednej obu- 
dowie video digitizer oraz RGB 
Splitter (patrz słowniczek). Konstru- 
kcja tego typu umożliwia w pełni 
automatyczne przetwarzanie obra- 
zów kolorowych bez ingerencji 
użytkownika. W przypadku pozo- 
stałych urządzeń niezbędne jest 
dokupienie oddzielnego RGB Split- 
tera lub stosowanie filtrów sele- 
ktywnych. w przypadku 
przetwarzania obrażu z kamery roz- 
wiązanie ostatnie umożliwia wpraw- 
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dzie uzyskanie kolorowego obrazu 
w postaci cyfrowej, jednakże czas 
niezbędny dla uzyskania pożąda- 
nego efektu znacznie się wydłuża. 
W przypadku natomiast gdy posia- 
damy gotowy sygnał np. z magne- 
towidu i chcemy uzyskać kolor po 
przetworzeniu, dokupienie RGB 
Splitter a staje się koniecznością. 

W zestawie Digi Tiger II znajduje 
się oprócz samego urządzenia, któ- 
rego obudowa jest zgodnie z na- 
zwą ozdobiona „tygrysimi” 
prążkami, także odpowiedni zasi- 
lacz (urządzenie nie jest zasilane z 
komputera) sieciowy, specjalny ka- 
bel służący do połączenia digitizera 


Digitalizować możemy w każdej rozdzielczości! 
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z komputeren, instrukcja oraz dys- 
kietka z oprogramowaniem. Odpo- 
wiedni program _ instalacyjny 
przewidziany jest dla użytkowników 
dysków twardych. Pozostali użyt- 
kownicy powinni wykonać so- 
bie kopię oryginalnej dyskietki 
i z niej korzystać. Na dyskiet- 
ce znajdują się dwie wersje 
programu obsługującego di- 
gitizer. Jedna przeznaczona 
jest dla „normalnych” Amig a 
druga to tzw. wersja Turbo dla 
Amigi 3000 oraz wszystkich pozo- 
stałych wyposażonych w turbo-kar- 
ty. Możemy również wybrać w 
jakim języku (angielskim czy nie- 
mieckim) program będzie się z na- 
mi komunikował. Oprócz samego 
programu do obsługi digitizera na 
dyskietce znajduje się również kilka 
gotowych obrazków demonstracyj- 
nych oraz program umożliwiający 
stworzenie tzw. Dia-Show czyli wy- 
świetlenia obrazków w określonej 
kolejności. Na płycie czołowej urzą- 
dzenia znajdują się cztery pokrętła 
regulacyjne umożliwiające regula- 
cję synchronizacji,  jaskrawości, 
kontrastu oraz nasycenia ko- 
lorów. Podłączamy wszystko 
co potrzeba, to znaczy zasi- 
lacz, kamerę i komputer do 
digitizera po czym uruchamia- 
my program i zabieramy się 
do testów. Zgodnie z tym wy- 
bieramy tryb TEST i od razu widzi- 
my na ekranie..., że nic nie widzi- 
my! Aha! Zapomnieliśmy zdjąć 
przykrywkę przesłaniającą obie- 
ktyw kamery. Poprawiamy ten kar- 
dynalny błąd i tym razem jest! 
Obraz na ekranie komputera nie 
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Również takie efekty nie są problemem ! 


spełnia co prawda jeszcze naszych 
oczekiwań, ale łapiemy szybko za 
pokrętła regulacyjne i... tu spora 
niespodzianka. Obraz w trybie 
TEST jest przetwarzany w czasie 
około jednej (!) sekundy. Pozwala 
to na bezproblemowe ustawienie 
pokręteł regulacyjnych w żądane 
położenie. Mam tu na myśli fakt, 
że efekt każdej zmiany położenia 
pokręteł jest niemalże natychmiast 
widoczny na ekranie. Przy okazji 
„kręcenia gałkami” wyszły na jaw 
ciekawe możliwości uzyskania do- 
datkowych efektów poprzez różne 
ustawienia kontrastu i jaskrawości. 
Przyzwyczajeni dotychczas do 
urządzeń typu Digi-View, gdzie na 
efekty digitalizacji trzeba było cze- 
kać kilkanaście do kilkadziesiąt se- 
kund, musimy przyznać, że jest to 
spory skok naprzód. Dodatkowe 
ciekawe efekty można uzyskać wy- 
bierając tryb PSEUDO-COLORS. 
W trybie tym poszczególnym od- 
cieniom szarości przypisane są 
przypadkowo dobrane kolory z ca- 
łej palety barw Amigi. Inną cieka- 
wostką jest tryb ANTIQUE, po 
wybraniu którego możemy uzyskać 
efekt pożółkłego ze starości zdjęcia 
z albumu pradziadka. Zmieniamy 
tryby rozdzielczości i okazuje się, 
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że w każdym z nich Digi Tiger bije 
na głowę konkurencję pod wzglę- 
dem szybkości. Przy wyższych 
rozdzielczościach różnice uwidacz- 
niają się jeszcze bardziej. Około 5 
sekund trwa przetworzenie obrażu 
o wymiarach 640x512 punktów. 
Zaczynamy testować kolor. Pro- 
gram pozwala nam na skorzystanie 
w tym celu zarówno z zainstalowa- 
nego wewnątrz obudowy RGB 
Splitter'a, jak również (np. w przy- 
padku gdy dysponujemy tylko ka- 
merą czarno-białą) ze specjalnych 
filtrów umieszczanych kolejno 
przed obiektywem kamery. W pier- 
wszym przypadku sprawa jest zna- 
cznie prostsza. Urządzenie 
automatycznie przetwarza kolejno 
obraz trzy raży w kolorach podsta- 
wowych, a następnie program two- 
rzy nam według zadanych 
parametrów obraz kolorowy korzy- 
stając z zapamiętanych wcześniej 
obrazów RGB. Mamy możliwość 
wybrać spomiędzy wszystkich try- 
bów dostępnych na Amidze. w 
przypadku, gdy wybierzemy tryb 
HAM, można jeszcze dodatkowo 
ustawić żądaną ostrość konturów. 
W tym miejscu oprogramowanie 
dostarczane do digitizerów typu 
Digi-View czy Deluxe View wydaje 
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się być odrobinę bardziej dopraco- 
wane i dające większe możliwości 
obróbki po digitalizacji (np. Dyna- 
mic Hires w Digi-View). Niemniej 
jednak efekty uzyskane przy pomo- 
cy oryginalnego oprogramowania 
Digi Tigera są w pełni zadowalają- 
ce. Obraży są ostre i wyraźne, a 
barwy odtwarzane z wysoką wier- 
nością. Gotowy obraz można na- 
grać na dysk w formacie IFF, a 
następnie dokonać dodatkowej ob- 
róbki przy użyciu dowolnego pro- 
gramu graficznego. Porównując z 
innymi digitizerami, należy stwier- 
dzić, że DT Il daje nam (przy po- 
dobnej cenie) podobne efekty 
końcowe co Digi- czy Deluxe View, 
natomiast komfort pracy (przede 
wszystkim szybkość) jest na zde- 
cydowanie (kilka, do kilkanaście (!) 
razy) wyższym poziomie. Podsu- 
mowując nasz test musimy stwier- 
dzić, że w pełni zgadzamy się ze 
sloganem reklamowym producen- 
ta, który w wolnym tłumaczeniu 
brzmi: Jeżeli digitizery przetwarza- 
jące obraz w czasie rzeczywistym 
są dla ciebie zbyt drogie a wszy- 
stkie pozostałe zbyt powolne, po- 
zostaje ci tylko... 


Digi Tiger II. 


SD! 


Urządzenie; video digitizer „Digi 
Tiger II" 

Producent: Klaus D. Tute 
Soft-, Art- und Hardware 
Dostawca: Silver Dream !''s 
Cena: około 580,- DM 


+ duża szybkość przetwarza- 
nia obrazu 

+ wysoka jakość uzyskiwa- 
nych efektów 


+ sprawdzona zgodność pro- 
gramowa z kKickstartem 1.2, 
1.3, 2.0 

+ wszystkie rozdzielczości do- 
stępne już przy 1MB RAM 
ubogie możliwości ingeren- 
cji w obróbkę po digitalizacji 


Ocena KEBAB'a: (w skali od 1 
do 6) - 5 (bardzo dobra). 
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q ' Wyjście z MasterSeki. 


Kombinacje z klawiszem CTRL: 
; Kursor jeden ekran w górę 
: Markuj blok 
: Wytnij biok. 
: Skasuj do końca linii 
Kursor do końca linii. 
* Wstaw blok. 
" Wytnij linię. 
. Wymień w bloku litery na małe. 
: Wstaw linię 
Wstaw blok 
; Kursor na początek linii 
: Odwróć blok 
. Kursor 100 linii w górę 
: Kursor na początek, iub koniec source'a. 
: Wymień w bloku litery na duże. 
: Zapisz blok na urządzeniu zewnętrznym 
; Kursor 100 linii w dół. 
: Kursor jeden ekran w dół 
: Kursor jeden ekran w dół. 


N<XZCHOÓONOUVOFxTMIJOW» 


Kombinacje z klawiszem ALT: 
< kursor w prawo> : Skok do wskazanej etykiety. 
< kursor w lewo> : Skok powrotny do odwołania etykiety 


Wybrane dyrektywy: 

align <liczba> : Przesunięcie asemblacji do adresu 
podzielnego przez <liczba>. 

blk.bfw/i <wielkość>,<dana> * Tworzy blok danych 
wielkości <wielkość> i wypełnia go wartością <dana>. 
Wielkość bloku mierzona jest odpowiednio w bajtach/sło- 
wach/długich słowach. 

dc.b/w/| <dana1,[dana2,...] > : Wstawia dane o rozmiarze 
bajtu/słowa/długiego słowa. 

ds.b/w/! <wielkość >. <dana> : Patrz „blk” 

endm : Kończy makrodefinicję. 

equ Nadaje symbolowi wartość. 

even : Przesunięcie asembiacji do adresu parzystego. 
end « Kończy asembiację. Domyślnie na końcu każdego 
source'a 

>extern <nazwa pliku>, <adres> : Po zasemblowaniu i 
wykonaniu polecenia „y” plik <nazwa pliku> zostanie 
załadowany do pamięci pod adres <adres>. 

incbin <nazwa pliku>.<adres> : Dołącza podczas 
asemblacji plik <nazwa pliku> pod adres <adres> 
load <adres>  Asembuje source'a pod adres <adres>. 
macro _ Rozpoczyna makrodefinicję (patrz przy- 

kład). 

odd . Przesunięcie asemblacji do adresu niepa- 
rzystego 

org <adres> . Asembluje organizując source'a 

od adresu <adres>. 

section <nazwa>,<typ> : Organizuje sekcję 
określonego typu. Dozwolone są: 

- code : kod, czyli program w języku maszynowym. 

- code_C * kod, wymuszenie do pamięci CHIP. 

- bss : blok zer. 

- bss_C : blok zer, wymuszenie do pamięci CHIP. 


Przykład makrodefinicji: 
Blit _ macro 

btst +*14,$dffO02 

dc.w $66f6 


endm 


Ta krótka procedurka czeka na skończenie pracy przez 
Blitter' a 


Krzysztof Kobus 


Masterseka-HELP - c.d. ze strony piątej 





wi [ nazwa pliku] : Zapis pliku. 

wo [ nazwa pliku] . Zapis obiektu. 

ws [numer napędu] : Zapis sektorów. 

wt [numer napędu] : Zapis track'ów. 

y  Załadowanie plików dla „Extern” (patrz dalej). 


Opcje assemblacji: 
Wydruk na drukarkę. 


: Optymizacja 
Wydruk na drukarkę. 
Wydruk na ekran. 


<UO1rIm 


Kombinacje z klawiszem Amiga w edytorze: 
a: Szukaj poprzedniego ciągu znaków. 
A _ Asemblacja (bez dodatkowych opcji) 
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Zatrzymanie po zapełnieniu strony przy listowaniu. 


: Markuj blok. 
: Kopiuj blok do bufora. 
. Wstaw blok z bufora. 
* Wytnij linię 
Wyjście z edytora. 
.„ Asemblacja i wykonanie (skok) 
Wymień następny ciąg znaków 
: Wymień ciąg znaków. 
: Szukaj następnego ciągu znaków 
: Szukaj ciągu znaków. 
: Wytnij blok. 
: Wytnij do końca linii. 
„ . Wstaw średniki na początku linii umieszczonych w bloku 
« Usuń średniki 


<xhuJ"Qax"ovo 


Kombinacje z klawiszem Amiga w debuggerze: 


© ' Kasowanie starego i ładowanie nowego source a 
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Assembler na C-64 


(odc.5) 


odczas poprzedniego na- 

szego Spotkania rozpo- 

częliśmy omawianie 
najważniejszych procedur systemu 
operacyjnego KERNAL. Tym razem 
poznamy jeszcze kilka z nich aby 
w następnym odcinku zabrać się 
już do bardziej efektownych rzeczy. 
Na początek coś zupełnie odwrot- 
nego do omawianej ostatnio pro- 
cedury CHROUT. Dwie procedury 
o nazwach GETIN oraz CHRIN 
(patrz tabela skoków z poprzednie- 
go odcinka) znajdujące się odpo- 
wiednio pod adresami $FFE4 i 
$FFCF w tabeli. Służą one do wpro- 
wadzania danych z urządzenia 
zewnętrznego. Standardowo, tj. po 
wykonaniu RESETu zewnętrznym 
urządzeniem wejściowym jest kla- 
wiatura. Tak, tak! Klawiatura z pun- 
ktu widzenia systemu 
operacyjnego wcale nie jest czę- 
ścią składową komputera, lecz 
urządzeniem zewnętrznym do nie- 
go podłączonym. W praktyce rów- 
nież nie mija się to z prawdą. Jeżeli 
ktoś próbował kiedyś rozmontować 
swojego (lub np. kolegi) 'komodor- 
ka' to wie, że klawiaturę podłącza 
się do płyty głównej za pomocą 
specjalnego złącza, a to, że mieści 
się ona w tej samej obudowie co 
komputer to tylko jedna z możliwo- 
ści. Wracając do rzeczy! Jak wspo- 
minałem w/w procedury służą do 
WPROWADZANIA danych. Chwilo- 
wo nie będziemy rozdrabniać się 
na inne urządzenia zewnętrzne 
(zbiory dyskowe, modemy itd.) i 
zajmiemy się wyłącznie klawiaturą. 
Z pewnością zdarzyło wam się nie 
raz, że pisany przez was program, 
np. w BASIC'u, musiał być zatrzy- 
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many do momentu wciśnięcia ja- 
kiegoś klawisza, ot choćby po to, 
aby jego użytkownik mógł przeczy- 
tać wydrukowany na ekranie komu- 
nikat. Zazwyczaj stosuje się 
właśnie taką metodę pisząc na 
końcu Press any key to continue..." 
lub "Wcisnij dowolny klawisz...". Ce- 
lowo napisałem *"wcisnij' a nie 
"wciśnij" gdyż do tego jak zrobić 
polskie znaki jeszcze nie doszliśmy 
(ale szukajcie, a znajdziecie... w 
KEBAB'ie oczywiście!). Użytkownik 
naszego programu po przeczyta- 
niu tekstu naciska jakiś klawisz 
(najczęściej SPACE) i program za- 
czyna działać dalej. Tak naprawdę 
to działał on cały czas choć nic nie 
działo się na ekranie. Jak taki efekt 
uzyskać? W BASIC'u najczęściej 
stosowane są dwa chwyty: 


100 POKE 198,0:WAIT 
198,1 
lub 


100 GET ZZŚ:IF Zz$="" 
THEN GOTO 100 


Pierwsza metoda wykorzystuje tzw. 
wskaźnik bufora klawiatury i jest w 
naszym przypadku mało przydatna 
jako przykład. Druga natomiast, to 
niemal (zaznaczam: niemal!) bez- 
pośrednie wywołanie procedury 
GETIN z tabeli skoków. Jak działa 
ta procedura? W przypadku klawia- 
tury jako aktualnego urządzenia I 
(wejścia), pobiera ona do akumu- 
latora jeden znak z wspmnianego 
już bufora klawiatury, a to jest właś- 
nie to o co nam chodzi. Musimy 
pamiętać tylko o jednym! Odczyt 
klawiatury i umieszczenie odpo- 
wiednich znaków w w/w buforze to 
zadanie procedur przerwań sysie- 
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mu operacyjnego. Czyli, aby korzy- 
stać z jego usług nie możemy 
zablokować przerwań systemo- 
wych np. komendą SEI. Ale, ale... 
o czym ja mówię, to wszystko to 
jeszcze nie nasz etap. Na razie nie 
używamy w ogóle takich komend! 
Zatem wzorując się niemal dokład- 
nie na drugim przykładzie BASIC- 
'owym napiszmy to samo w języku 
asemblera. 


A5000 
A5003 
A5005 


JSR $FFE4 
BEQ $5000 
RTS 


Co my tu mamy? JSR $FFE4, a 
więc skok do podprogramu - pro- 
cedury GETIN, poprzez tabelę 
oczywiście. Następnie BEQ $5000 
tzn. jeżeli wynik ostatniej operacji 
(a mamy go w akumulatorze) jest 
równy zero, to skaczemy ponownie 
do $5000 i po raz kolejny wywołu- 
jemy procedurę GETIN. Prawda, że 
podobne do BASIC'a? Tam też 
było "IF ZZ$="" THEN...”, czyli jeżeli 
po wywołaniu funkcjj GET ZZ$ 
zmienna ZZ$ zawierała pusty łań- 
cuch (dwa znaki cudzysłowia oz- 
naczają w BASIC'u tzw. łańcuch 
pusty - ang.: empty string), to 
wywoływaliśmy ją ponownie (... 
GOTO 100). W przypadku nato- 
miast, gdy uzyskaliśmy w akumu- 
latorze wynik różny od zera, to 
program przejdzie do następnej 
linii... a RTS w naszych dotychcza- 
sowych przykładach to wszyscy 
wiemy co oznacza...! (Mam nadzie- 
ję !?) Spróbujmy to uruchomić: 
piszemy szybko SYS 5*4096 i... nic 
się nie dzieje! Kursor zniknął, a 
komputer "wisi". Ze złością uderza- 
my w klawisze... NO! Pomogło! 
Znowu pojawił się kursor... zaraz, 
zaraz... przecież to właśnie tak mia- 
ło być! Aby upewnić się, że kom- 
puter wcale nie "zawisł" proponuję 
troszkę inny test: 


A5000 
A5002 
A5005 
A5008 
A500A 
A500C 
A500F 


LDA 
STA 
JSR 
BEQ 
LDA 
STA 
RTS 


+4$00 
$DO020 
ŚFFE4 
$5005 
+$0E 
$D020 


Tym razem zmieniamy kolor ramki 
przed i po wciśnięciu klawisza ale 
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zamiast tego możemy zrobić coś 
innego np. wyświetlić fragment te- 
kstu przed wciśnięciem klawisza 
(od poprzedniego odcinka wiemy 
jak to robić), a drugi fragment te- 
kstu po wciśnięciu. Dotychczas 
sprawdzaliśmy czy nie został wciś- 
nięty jakikolwiek klawisz, ale proce- 
dura GETIN potrafi nam również 
podać jaki klawisz został wciśnięty. 
Po powrocie z procedury mamy w 
akumulatorze kod PETAŚCII znaku 
odpowiadającego klawiszowi lub 
kombinacji klawiszy wciśniętych w 
momencie wywołania procedury. 
Spróbujmy na przykład zatrzymać 
program do momentu naciśnięcia 
klawisza SPACE (nie wtajemniczo- 
nym przypominam, że jest to ten 
najdłuższy klawisz na klawiaturze). 
Napiszmy zatem: 


A5000 
A5003 
A5005 
A5007 
A5009 


JSR 
CMP 
BNE 
LDA 
JMP 


$FFE4 
+$20 
$5000 
+$93 
$FFD2 


Tym razem mamy tu kilka nowości. 
JSR $FFE4 to powinno być jasne 
ale "CMP +$20*? Tak, to coś no- 
wego! Jak zwykle podam pełne, 
angie!tskie brzmienie wyrażenia od 
którego pochodzi ten skrót. Chodzi 
tu o zwrot (C)o(MP)are Accumula- 
tor. Po polsku znaczy ono po pro- 
stu "porównaj akumulator". Dobrze! 
Ale z czym porównujemy ten aku- 
mulator? Dokładnie porównujemy 
zawartość akumulatora z wartością 
określoną przez operand (patrz 
również poprzednie odcinki kursu). 
Znaczek "4" określa nam, co wiemy 
już z naszego kursu, tzw. adreso- 
wanie bezpośrednie (lub "natych- 
miastowe”) od angielskiego 
"immediate addresing'. To znaczy, 
że porównujemy zawartość akumu- 
latora z wartością występującą bez- 
pośrednio po znaczku "+. W 
naszym przykładzie mamy po zna- 
czku "£" wartość $20 i to jest to, z 
czym będziemy porównywać aku- 
mulator. Spoglądamy do tabeli AS- 
CII (np. w instrukcji obsługi 
komputera) i odszukujemy tam li- 
czbę $20, a właściwie jej dziesiętny 
odpowiednik (32) i co widzimy? 
Widzimy, że jest to kod odpowia- 
dający znakowi spacji. Aha! To 
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znaczy, że wywołujemy procedurę 
GETIN, a po powrocie z niej mamy 
w akumulatorze wartość odpowia- 
dającą kodowi PETAŚCII wciśnię- 
tego aktualnie klawisza. 
Ewentualnie, gdy żaden klawisz nie 
jest wciśnięty, otrzymujemy w aku- 
mulatorze wartość $00. Teraż po- 
równujemy to, co uzyskaliśmy w 
wyniku wywołania GETIN z warto- 
ścią odpowiadającą za klawisz spa- 
cji (520). ! Tu przychodzi czas na 
wyjaśnienie dlaczego w poprze- 
dnich odcinkach tłumacząc zna- 
czenie komend BEQ, czy BNE 
pisaliśmy słowo "zero" w nawiasie. 
Otóż komend tych używamy nie 
tylko wtedy, gdy interesuje nas czy 
wynik ostatniej operacji jest równy 
bądź różny od zera. Również wte- 
dy, gdy porównujemy ze sobą dwie 
liczby i zależnie od tego czy są one 
równe czy różne, podejmujemy od- 
powiednie działanie. Wynika to z 
tego, że procesor wykonując ko- 
mendę CMP (a również CPX czy 
CPY - odpowiedniki CMP odnoszą- 
ce się do rejestrów X i Y), wykonuje 
wewnętrznie operację odejmowa- 
nia liczby porównywanej od zawar- 
tości akumulatora (bądź rejestru X 
czy Y). Natomiast wynik tego ode- 
jmowania nie jest nigdzie przecho- 
wywany, jedynie procesor wie czy 
wynik tego odejmowania był równy 
zero (gdy liczby są sobie równe) 
czy też nie (jeżeli liczby były różne). 
Dlatego właśnie używaliśmy nawia- 
sów, bo podstawowym zastosowa- 
niem tych komend jest 
podejmowanie decyzji po porów- 
naniu. Jednakże specylika ich dzia- 
łania pozwala na znacznie więcej 
zastosowań. Ale odeszliśmy chyba 
zbyt daleko od naszego przykładu. 
Wracamy zatem. Po porównaniu 
akumulatora z wartością $20 po- 
dejmujemy decyzję. BNE « to 
(B)ranch if (N)ot (E)qual, czyli 
skocz jeśli nie są równe (pod adres 
$5000). Tam ponownie wywołuje- 
my GETIN. I tak w kółko, aż do 
momentu, gdy przy kolejnym skoku 
pod $FFE4 będzie wciśnięty kla- 
wisz spacji. Wtedy po powrocie z 
procedury w akumulatorze znajdzie 
się oczekiwana przez nas wartość 
$20 i wtedy też, zamiast skakać 
znowu pod $5000, procesor wyko- 
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na kolejną komendę. Zestaw 

LDA 4$93 i JSR $FFD2 to już 
wszyscy znamy. Tu jednak 
mamy nie "JSR*, a "JUMP" i na 
końcu nie mamy znanego 

nam już dobrze RTS'a. Dla- 
czego? Otóż wszystkie udokumen- 
towane procedury systemu opera- 
cyjnego są to podprogramy, które 
prędzej lub później kończą się roz- 
każem powrotu z podprogramu... 
tak, właśnie RTS'em. Zatem każdą 
kombinację typu: 


JSR $XXXX 
RTS 


możemy zastąpić jednym rozka- 
zem 


JMP $XXXX 


Oszczędzamy w ten sposób jeden 
(!) bajt, co może się kiedyś przydać 
(naprawdę!), ale tracimy sporo na 
przejrzystości programu. Dlatego 
też, w naszych przykładach będzie- 
my stosować jednak pierwszy Spo- 
sób. Uff! Przebrnęliśmy przez ten 
krótki przykładzik. Domyślni Czytel- 
nicy pewnie już domyślili się, że w 
ten sam sposób możemy Sspraw- 
dzić dowolny klawisz np. (T)ak lub 
(Nie, albo (Y/N) itd. Ale w BASIC'u 
mamy więcej możliwości wprowa- 
dzania danych. Funkcja GET służy 
zażwyczaj do wprowadzania poje- 
dynczych znaków. Owszem, moż- 
na ją przy użyciu odpowiednich 
pętli użyć do wprowadzania całych 
ciągów liter, lecz nie stosujemy 
tego typu trików, bo mamy gotową 
komendę INPUT. A skoro funkcję 
GET możemy w języku asemblera 
zasymulować korzystając z jednej 
tylko procedury systemu operacyj- 
nego, to może i INPUT da się 
zrealizować w podobny sposób? 
Owszem! Służy do tego druga z 
wymienionych dzisiaj procedur 
KERNAL'a tzn. CHRIN. Adres tej 
procedury w tabeli skoków to 
$FFCF. Obie procedury działają 
identycznie w przypadku wszy- 
stkich urządzeń wejścia za wyjąt- 
kiem klawiatury. To znaczy, że jeżeli 
będziemy odczytywać bajty (znaki) 
np. ze stacji dysków to nie ma 
znaczenia, której procedury bę- 
dziemy używać. Natomiast w przy- 
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padku odczytywania znaków z kla- 
wiatury obie procedury działają ina- 
czej. Pierwszą już poznaliśmy. 
Działanie drugiej proponuję po- 
znać na przykładzie, który znajduje 
się w dziale Listingi. Składa się on 
z dwóch części. Obie należy wpi- 
sać korzystając z odpowiedniego 
debuggera. Jest to pierwszy dość 
"poważny" przykład obrazujący to, 
że w języku asemblera można rów- 
nie szybko jak w językach wyższe- 
go rzędu tworzyć programy i 
procedury o dość wysokim stopniu 
złożoności. Warunkiem jest dobra 
znajomość systemu operacyjnego. 
Po wpisaniu obu części programu 
uruchamiamy go jak zwykle rozka- 
zem SYS 5*4096 z BASIC'a lub 
odpowiednią komendą G (lub J) 
debuggera. Przyjrzyjmy się temu 
programowi bliżej. Pierwsze pięć 
linijek znamy już wszyscy z poprze- 
dnich odcinków. Przejdźmy zatem 
do następnych. Kolejne sześć lini- 
jek to znana już również z odcinka 
czwartego procedurka drukująca 
na ekranie ciąg znaków, których 
kody znajdują się począwszy od 
adresu $5080. Począwszy od ad- 
resu $501A rozpoczyna się nowa 
procedurka odwołująca się do 
CHRIN ($FFCF) w tabeli skoków. 
Domyślamy się, że to właśnie jest 
realizacja funkcji INPUT z poziomu 
języka maszynowego. I zgadza się! 
Ale jak to działa? Popatrzmy! Na 
początku mamy LDX +$00, czyli 
wartość $00 do rejestru X. Dalej 
JSR $FFCF, to znaczy od razu skok 
do ROM'u. Procedura CHRIN jest 
tak skonstruowana, że pierwsze jej 
wywołanie powoduje (jeżeli aktual- 
nym urządzeniem wejściowym jest 
klawiatura) pojawienie się migają- 
cego kursora, a następnie wciśnię- 
cie każdego klawisza powoduje to, 
że odpowiadający mu kod zostaje 
umieszczony w tzw. buforze klawia- 
tury tj. obszarze pamięci zarezer- 
wowanym przez system do 
czasowego przechowywania ko- 
dów wciskanych klawiszy. Proce- 
dura również, oprócz umieszczenia 
tego kodu we wspomnianym bufo- 
rze wysyła go naekran. Dziękitemu 
możemy widzieć co aktualnie pi- 
szemy. Wszystko to dzieje się tak 
długo, dopóki nie wciśniemy klawi- 
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sza RETURN. Wtedy to, procedura 
wraca do miejsca wywołania, prze- 
kazując w akumulatorze pierwszy 
(nie ostatni) z kodów umieszczo- 
nych w buforze klawiatury. Każde 
następne wywołanie tej procedury 
zwraca nam w akumulatorze kolej- 
ny kod. W momencie, gdy pobie- 
rzemy już kod - ostatniego 
wciśniętego klawisza, a będzie to 
zawsze $0D odpowiadający klawi- 
szowi RETURN, kolejne wywołanie 
procedury rozpocznie cały proces 
od nowa. Zatem, aby uniknąć wię- 
cej niż jednego pobierania łańcu- 
cha tekstowego, zaraz po powrocie 
z procedury sprawdzamy komendą 
CMP, czy przypadkiem nie jest to 
już ostatni kod ($0D). Jeżeli tak, to 
od razu skaczemy pod adres $5029 
i wykonujemy dalszy ciąg progra- 
mu. Jeżeli nie to musimy gdzieś 
sobie zapamiętać wszystkie znaki, 
które zostaną nam przekazane 
podczas kolejnych _ wywołań 
CHRIN. W tym celu postanowiliśmy 
umieszczać je od adresu $5100 w 
górę. Robi to nam komenda STA 
$5100,X. INX to nie muszę już chy- 
ba tłumaczyć. A BNE wykonuje 
skok (jeżeli tylko rejestr X nie 'prze- 
skoczył”) pod adres $501C, gdzie 
po raz kolejny wykonujemy JSR 
$FFCF. W momencie gdy uzyska- 
my już wartość $0D co oznacza 
koniec łańcucha, rozpoczynamy 
drukowanie na ekranie wszystkie- 
go co potrzeba. Lecz jeszcze zanim 
to uczynimy musimy wpisać na 
koniec naszego dopiero co zapa- 
miętanego (pod $5100) łańcucha 
znacznik jego końca. Wcześniej był 
to bajt $0D. My jednak przyjmiemy 
sobie, że znacznikiem końca łań- 
cucha będzie zawsze bajt $00. Za- 
tem przesyłamy zawartość 
akumulatora do rejestru Y (TAY), i 
ładujemy na to miejsce $00. Nastę- 
pnie umieszczamy ten bajt na koń- 
cu naszego łańcucha. Komenda 
TYA (Transfer Y to Accumulator) 
przesyła nam na powrót przecho- 
waną czasowo w rejestrze Y war- 
tość $0D z powrotem do 
akumulatora, a kolejne trzykrotne 
wywołanie procedury CHROUT 
spowoduje, że kursor przeskoczy 
o trzy linie w dół. Teraz już druku- 
jemy kolejno na ekranie teksty 
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wklepane uprzednio pod odpo- 
wiednie adresy oraz nasz, podany 
z klawiatury łańcuch i na końcu 
grzecznie powracamy do punktu 
wyjścia komendą RTS (oczywiście 
po wciśnięciu dowolnego klawisza 
$506D - $5070). Ktoś mógłby po- 
wiedzieć: przecież to wszystko mo- 
gę zaprogramować w. BASIC'u! 
Owszem! Ale zanim przejdziemy 
do takich rzeczy, których w BASIC- 
'u nie da się zrobić, należy poznać 
podstawy, bez których w pewnym 
momencie możemy  ugrzęznąć 
podczas programowania  wię- 
kszych programów. Poza tym, nie 
należy do najlepszych metod pro- 
gramowanie części programu w 
BASIC'u, a części tylko w MC. Po 
prostu nie zawsze się ten sposób 
sprawdza. Ja ze swej strony zapra- 
szam już do lektury następnego 
odcinka gdzie poruszymy jak zwy- 
kle sporo nowych tematów. A na 
zakończenie jeszcze jeden króciut- 
ki przykład. Jest to najczęściej sto- 
sowana przez koderów metoda na 
sprawdzenie czy nie został wciś- 
nięty klawisz spacji. W poprzednich 
przykładach robiliśmy to korzysta- 
jąc z procedur systemu operacyj- 
nego. Tym razem wykorzystamy 
cechy sprzętowe naszego "kom- 
cia”. 


A5000 
A5003 
A5005 
A5007 


LDA 
CMP 
BNE 
RTS 


$DCO1 
+$EF 
$5000 


W następnym odcinku wyjaśnimy 
co oznacza to tajemnicze $DCO1. 
A póki co, życzę ciekawych ekspe- 
rymentów z dzisiejszymi przykłada- 
mi. 


SD! 
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Grafika wektorowa 


odrobina teorii 


d dłuższego już czasu 

wszystkich, bardziej lub 

mniej znanych koderów, 
zarówno w kraju jak i za granicą 
ogarnął szał grafiki wektorowej. W 
setkach powstających programów 
demonstracyjnych mamy okazję 
podziwiać najróżniejsze bryły, stat- 
ki kosmiczne, oraz inne obiekty 
animowane przy pomocy tej właś- 
nie techniki przetwarzania obrazu. 
Często bywa, że zrobienie wekto- 
rówki jest pewnego rodzaju spraw- 
dzianem dla kodera, podobnie jak 
pierwsze przepłynięcie marynarza 
przez równik. Osobom posiadają- 
cym już pewne doświadczenie w 
kodowaniu, chciałbym na łamach 
Kebaba przybliżyć sposób realiza- 
cji procedur grafiki wektorowej. 


Dlaczego grafika wektorowa? 

Opisanie przestrzeni nas otaczają- 
cej, tudzież poszczególnych jej 
obiektów za pomocą współrzęd- 
nych wierzchołków, czyli wektorów, 
daje użytkownikowi ogromne mo- 
żliwości przetwarzania obrażu, a 
przede wszystkim ogromną do- 
kładnść i precyzję otrzymanych wy- 
ników. Dlatego właśnie grafika 
wektorowa znajduje zastosowanie 
we wszystkich programach wspo- 
magających projektowanie. Pozwa- 
la na dowolne skalowanie obrażu, 
jego transłację, obroty, czyli możlIi- 
wość oglądania obiektu z dowolnej 
strony, także od wewnątrz. Na przy- 
kład współczesne programy do 
sporządzania projektów domów, 
działające w oparciu o grafikę we- 
ktorową wraz z tzw. ray-tracingiem, 
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tj. śledzeniem promieni światła oraz 
analizą jego odbicia, załamania i 
rozproszenia, umożliwiają przyszłe- 
mu mieszkańcowi na dokładne za- 
znajomienie się z wyglądem i 
rozmieszczeniem pokoi oraz in- 
nych pomieszczeń. Na tym etapie 
można stworzyć taki projekt, który 
zarówno będzie odpowiadał wła- 
ścicielowi, jak i będzie możliwy do 
wykonania pod względem techni- 
cznym. Przyszły mieszkaniec ma 
możliwość „marudzenia” przesu- 
wając płynnie ściany, zwiększając 
jedne pomieszczenia kosztem dru- 
gich, oczywiście w granicach roz- 
sądku. Wreszcie . ostateczny 
wygląd zostaje zaakceptowany i 
ostatecznie wykonany. Grafika we- 
ktorowa to oczywiście nie tylko 
projektowanie. Najlepszym tego 
przykładem może być Kebab, który 
właśnie czytacie. Zanim stał się 
takim, jak obecnie wygląda, całko- 
wicie podczas składu zapisany był 
właśnie  wektorowo. Wszystkie 
współrzędne każdej litery wielokrot- 
nie były przeliczane i wreszcie za 
kolejnym razem osiągnęły taką po- 
stać jaką macie przed sobą. Rów- 
nież znak „Kebab” znajdujący się 
u dołu strony narysowany został 
na programie żapisującym rysunki 
za pomocą wektorów, dzięki temu 
niemal błyskawicznie można go 
wyginać,  skalować, ustawiać 
względem danej perspektywy, na- 
ciągać na kulę i transformować na 
wiele różnych sposobów. Podobne 
przykłady można przytaczać bez 
końca. Współczesne projektowa- 
nie płytek drukowanych do obwo- 
dów __ elektronicznych, liczne 
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programy symulacyjne - reali- 
zowane są właśnie przy po- 
mocy techniki wektorowej, a 
o tym, że napisanie procedur 
przeliczających wierzchołki i 
transtormujących obrazy nie 
jest takie trudne, przekonacie 
się za chwilę. 


Trochę matematyki. 

Realizacja procedur grafiki 
wektorowej zależy przede wszy- 
stkim od tego do jakich celów chce- 
my ją wykorzystać. Zdarza się 
czasem, że obliczenia sprowadzają 
się do transformacji przestrzeni 
dwuwymiarowej, czyli płasz- 
czyzny (DTP). W takim przy- 
padku stosujemy wzory takie, 

jakie poznaliście w szkole 
średnej, na zajęciach z geo- 
metrii (o ile w tym samym 
czasie nie byliście na przykład 

w kinie). Obecnie chciałbym przed- 
stawić wektorówkę taką, jaką zna- 
cie z licznych programów 
demonstracyjnych i, aby nie za- 
śmiecać wam zbytnio w głowię tym 
razem ograniczę swoje wywody do 
zagadnień wektorówki „niewypeł- 
nionej”. Zanim zaczniecie pisać ja- 
kiekolwiek procedury, zastanówcie 
się nad wprowadzeniem wyima- 
ginowanej przestrzeni, w której bę- 
dzie znajdował się obserwator oraz 
będą poruszały się obiekty. Dla 
uproszczenia i zarazem przyspie- 
szenia obliczeń, najwygodniej jest 
zrealizować to w ten sposób, że 
monitor widziany od przodu zawie- 
rać będzie płaszczyznę XY, a pro- 
sta prostopadła do niego będzie 
osią Z naszego układu OXYŻ. Przyj- 
mijmy także, że punkty znajdujące 
się między nami a płaszczyzną 
monitora będą miały współrzędną 
Z ujemną, natomiast za płaszczy- 
zną monitora dodatnią. Wynika z 
tego, że środek układu współrzęd- 
nych, czyli punkt (0,0,0) znajdował 
się będzie na płaszczyźnie monito- 
ra, a dokładnie na jej środku oraz 
wszystkie zdefiniowane obiekty bę- 
dą miały współrzędną Z dodatnią. 


Patrz również rysunek na następnej 
stronie. 
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1. Translacja obiektu. 

Translację, czyli przesunięcie o we- 
ktor, uzyskujemy przez dodanie do 
współrzędnych każdego punktu 
naszego obiektu, współrzędne we- 
ktora przesunięcia. Aby przesunąć 
więc punkt (xy,z) o wektor 
[ut,u2,u3] należy wykonać: 


x1i=x+ul 
yt=y+u2 
z1=z+u3 


Otrzymane (x1,y1,z1) są współ- 
rzędnymi punktu po przesunięciu. 


2. Obrót obiektu. 

Aby obrócić obiekt w przestrzeni w 
dowolny sposób należy złożyć ob- 
roty względem trzech osi: OX, OY, 
Oz. Zauważmy, że obracając 
obiekt względem osi OX jego 
współrzędna x nie zmienia się. Wy- 
starczy więc przeliczyć jedynie 


ekran monitora 


Przyjmijmy taką organizację przestrzeni. 





współrzędne y oraz z obiektu. Po- 
dobnie obracając względem OY 
przeliczamy x i z, natomiast wzglę- 
dem OZ x iy. 

a) Obrót względem OX. Współrzed- 
ne y,z w obrocie wokół punktu 
(xo,yo,zo) o kąt A zmieniają się na 
współrzędne yr,zr według następu- 
jących wzorów: 

yr=y0+ (y-yo)*cos(A) + (z-zo)*sin 

A 


zr=z0+ (z-z0)*cos(A)-(y-yo)*sin(A) 
Wynika z tego, że współrzędna xo 
punktu, wokół którego obracamy 
nie bierze udziału w tym obrocie. 
b) Obrót względem OY. Analogicz- 
nie do powyższego obracając x,z 
wokół (xo,yo,zo) o kąt B otrzymu- 
jemy: 

XT=X0+ (x-x0) *cos(B)-(z-zo)*sin(B) 
zr=z0+ (z-z0)*cos(B) + (x-x0)*sin 
(B) 

c) Obrót względem OZ. Wreszcie 
obracając x,y wokół (xo,y0,zo) o kąt 


C mamy: 
XT=X0+ (x-x0)*cos(C) + (y-yo)*sin 
(C) 


yr==yvo+ (y-yo)*cos(C)-(fx-xo)*sinf 
c 


3. Rzutowanie obiektu. 
Rzutowanie polega na przekształ- 
ceniu trójwymiarowego obrazu w 
ten sposób, aby mógł być przed- 
stawiony na - dwuwymiarowej 
płaszczyźnie monitora. W tym celu 
należy każdy punkt naszego obie- 
ktu o współrzędnych (Gy,z) prze- 
kształcić na punkt o 
współrzędnych (xp,yp) znajdujący 
się na ekranie monitora. Realizują 
to wzory: 

xp=xo0+ ((x0-x)*zo)/(z-zo) 

yp=yo+ ((yo-y)*zo)/(z-z0) 

przy czym współrzędne (x0,z0,z0) 
odpowiadają za położenie obser- 
watora, czyli ustawienie perspekty- 
wy. Należy pamiętać, aby 
rzutowanie wykonywać zawsze ja- 
ko ostatnie, gdy wszystkie inne 
transformacje zostały już wykona- 
ne. 

Przekształceń przestrzeni istnieje 
jeszcze bardzo wiele. Koderzy w 
programach demonstracyjnych 
ograniczają się przede wszystkim 
do opisanych powyżej. Sprytnie je 
składając otrzymują bardzo cieka- 
we efekty, niekiedy przypominające 
nawet krótkie filmy animowane. 
Proponuję teraz na podstawie po- 
wyższych wzorów napisać proce- 
dury grafiki wektorowej. Nie 
musicie od razu pisać ich w as- 
semblerze jednak pamiętajcie, że 
właściwie tylko w tym języku uzy- 
skacie największą efektywność. Mi- 
łego kodowania (programowania?) 
życzy: 


Krzysztof Kobus 





..Zwracam się... ... z kilkoma 


łyse z instrukcji obsługi nie- 


które można by było zastoso- 


języku BASIC, których celem jest przed- 
stawienie użytkownikowi podstawowych 


problemami i mam nadzieję, że 
uzyskam pomoc... ... zajmuję się 
filmowaniem video-camerą. 
Chciałbym zastować Commodo- 
re 64 (ze standardowym wypo- 
sażeniem tzn. tylko klawiatura, 
zasilacz i magnetofon) do wyko- 
nywania czołówek, napisów itp. 
poprzez magnetowid na kase- 
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wiele wynika (bardzo dokładnie 
przepisywałem programy Z in- 
strukcji do C-64 i nic z tego nie 
wychodziło !). Czy posiadacie 
takie opracowania, aby można 
było robić barwne, ruchome na- 
pisy przesuwające się z dołu do 
góry lub w formie "przewracania 
kartek”, lub jeszcze inne "bajery", 


wać? Czy można coś takiego 
nabyć? Jaka jest tego cena? 


Jerzy Własiuk 


Szanowny Panie, 

poruszył Pan w swoim liście co najmniej 
dwie istotne sprawy. Zacznę może od tej 
prostszej. Mam na myśli programy z instru- 
kcji obsługi Są to krótkie przykłady w 





(-- EPAR ALAR 


możliwości sprzętowych C-64. Na pewno 
nie są to żadne wyrafinowane programy 
umożliwiające np. wykonywanie płynnych 
efektów animacyjnych, o które Panu cho- 
dzi. Uzyskanie tego typu "bajerów" wyma- 
ga stosowania języka maszynowego. Inną 
rzeczą jest fakt, że prawdopodobnie (wnio- 
skuję z Pańskiej wypowiedzi) nie udało się 
Panu tych przykładów uruchomić. Otóż 


c.d. na str. 23 
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Mapa pamięci Amigi 


(c.d.) 


040 BLTCONO W - A 

042 BLTCON1 W - A 

Rejestry kontroli Blittera. Poszcze- 
gólne bity zerowego (BLTCONO) 
rejestru kontroli mają następujące 
znaczenie: 

bity 15-12 (ASH3-ASHO) Bity prze- 
sunięcia dla źródła A. Jak wiadomo, 
na czterech bitach można zapisać 
liczby z zakresu od O do 15. O 
takie więc wartości możemy prze- 
suwać obszar zdefiniowany jako 
źródło A. 

bit 11 (USEA) Ustawiony oznacza 
użycie źródła A. 

bit 10 (USEB) Ustawiony oznacza 
użycie źródła B. 

bit 9 (USEC) Ustawiony oznacza 
użycie źródła C. 

bit 8 (USED) Ustawiony oznacza 
użycie przeznaczenia (ang: Desti- 
nation). 

bity 7-0 (LF7-LFO) Bity określające 
jaką funkcję logiczną określoną na 
blokach pamięci Blitter ma realizo- 
wać. 

A oto rozpiska pierwszego 
(BLTCONN) rejestru kontroli: 

bity 15-12 (BSH3-BSHO) Bity prze- 
sunięcia dla źródła B. 

bity 11-5 Nie używane, lecz w celu 
zapewnienia kompatybilności z no- 
wszymi modelami Agnus'a powin- 
ny zawsze być skasowane. 

bit 4 (EFE) Włącza tryb „Exclusive” 
przy wypełnianiu. 

bit 3 (IFE) Włącza tryb „Inclusive” 
przy wypełnianiu. 

bit 2 (FCI) Używany przy wypełna- 
niu. 

bit 1 (DESC) Ustawiony oznacza, 
że Blitter będzie pracował „od tyłu”, 
tzn. kopiowanie bloków i operacje 
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na nich odbywać się będą od ad- 
resów wyższych do niższych. 

bit O (LINE) Ustawiony przełącza 
Blittera na tryb kreślenia linii. W 
tym trybie rejestry obsługujące opi- 
sywany układ posiadają odmienne 
znaczenie i zostaną dokładnie opi- 
sane w kolejnych odcinkach cyklu. 
Niniejszy opis rejestrów Blitter'a od- 
nosi się do sytuacji, gdy bit ten jest 
skasowany. 


044 BLTAFWM W - A 

046 BLTALWM W - A 

Maski dla pierwszego i ostatniego 
słowa bloku. Podczas operacji na 
pamięci Bliter wykona logiczne 
AND z wartością pierwszych słów 
pobranych z miejsca zdefiniowane- 
go kanałem źródłowym A i warto- 
ścią wpisaną do rejestru 
BLTAFWM. 


048 BLTCPTH W - + A 

04A BLTCPTL W - + A 
Wskaźnik kanału źródła ©. Do tych 
rejestrów wpisujemy adres bloku 
obszaru źródłowego C. Należy pa- 
miętać, że adres ten musi wskazy- 
wać pamięć typu CHIP. 


04C BLTBPTH W - + A 

04E BLTBPTL W - + A 
Analogicznie do BLTCPTH/L, doty- 
czy źródła B. 


050 BLTAPTH W - + A 

052 BLTAPTL W - + A 
Analogicznie do BLTCPTH/L, doty- 
czy źródła A. 


054 BLTDPTH W - + A 
056 BLTDPTL W - + A 


KEDAR 


Wskaźnik obszaru przeznaczenia 
D. Wskazuje miejsce w pamięci 
CHIP, gdzie zostanie zapisany wy- 
nik operacji Blitter'a. 


058 BLTSIZE W - A 
Wielkość okna dla Blittera i 
start. Przy pomocy tego reje- 
stru definiujemy wielkość ob- 
szaru, na którym będziemy 
operować Blitter' em. 

bity 15-6 Definiują pionową 
wielkość okna. Łatwo wyliczyć, że 
przy pomocy tych dziesięciu bitów 
możemy ustalić największą piono- 
wą wielkość okna na wartość równą 
2 do potęgi 10, czyli 1024. 
bity 5-0 Definiują poziomą 
wielkość okna wyrażoną w 
słowach. Analogicznie do po- 
wyższego wyliczamy, że ma- 
ksymalna wielkość pozioma 
okna wynosi 2 do potęgi 6 
(mamy 6 bitów definiujących), 
czyli 64 słowa, co w przeliczeniu 
daje nam 64*16=1024 pixele. 
Przy zapisie wielkości okna propo- 
nuję przyjąć następującą konwe- 
ncję: 

move.w 

4 [64*WYS]++SZER, $dff058 

gdzie: 

WYS - Wysokość okna wyrażona w 
liniach. 

SZER - Szerokość okna wyrażona 
w słowach. 

Iloczyn liczby 64 z wysokością okna 
zapewni nam przesunięcie warto- 
ści WYS na miejsce bitów 15-6. 
Jak już wspomniałem na początku, 
rejestr ten odpowiada również 
za wystartowanie Bliter'a. Dla- 
tego też, powinien być zapi- 
sywany, gdy wszystkie inne 
rejestry obsługujące ten układ 
zostały zainicjiowane. 


060 BLTCMOD W - A 

Modulacja Blittera dla kanału 
źródłowego C. Wartość wyrażoną 
w bajtach, wpisaną do tego reje- 
stru, Bliter doda do wskaźnika ka- 
nału ©, po skopiowaniu każdej linii 
bloku danych. Dzięki modulacji ma- 
my możliwość kopiowania nie tylko 
obszarów pamięci o szerokości 
równej szerokości obrazka, lecz 
również małych okienek z niego 
wyciętych. Jeśli na przykład z ob- 
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razka o szerokości 320 (20 słów) 
pixeli chcemy skopiować okienko 
o szerokości 48 pixeli (3 słowa) 
modulację należy ustawić na war- 
tość 34, ponieważ właśnie 34 bajty 
(to jest 34*8=272 pixele) należy 
dodać do aktualnego miejsca pa- 
mięci, aby trafić na miejsce począt- 
ku okienka w następnej linii. W 
praktyce, najczęściej suma szero- 
kości okienka i modulacji jest równa 
szerokości obrazka. 


062 BLTBMOD W - A 
Analogicznie do BLTCMOD, doty- 
czy kanału źródłowego B. 


064 BLTAMOD W -A 
Analogicznie do BLTCMOD, doty- 
czy kanału źródłowego A. 


066 BLTDMOD W - A 
Analogicznie do BLTCMOD, doty- 
czy kanału przeznaczenia D. 


070 BLTCDAT W-%A 

Rejestr danych dla źródła A. Pra- 
ktycznie dostępny tylko dla wewnę- 
trznych kanałów DMA, więc nie 
będzie nas zbytnio interesował. 


072 BLTBDAT W - % A 
Analogicznie do BLTCDAT, dotyczy 
źródła B. 


074 BLTADAT W -%A 
Analogicznie do BLTCDAT, dotyczy 
źródła A. 


W ten właśnie sposób wygląda 
teoria Blitter'a. A jak jest w prakty- 
ce? No cóż, aby dobrze sobie to 
uzmysłowić zacznę od tego jak 
zorganizowana jest pamięć obrazu. 
Każdy zapewne domyśla się, że tak 
jak wszystkie pamięci składa się 
ona z komórek, z których każda 
zawiera bajt informacji, czyli osiem 
bitów. W przypadku wyświetlania 
obrażu dwukolorowego (tło - kolor 
zwany zerowym, i jeden kolor - 
zwany pierwszym), te osiem bitów 
pozwala na zapisanie danych dla 
wyświetlenia ośmiu punktów obra- 
zu, zwanych pixelami. Jeśli proce- 
sor graficzny przeglądając pamięć 
stwierdzi, że dany bit jest ustawio- 
ny, odzwierciedla to pixelem na 
ekranie w kolorze pierwszym, jeżeli 
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natomiast stwierdzi, że bit ten jest 
skasowany, odzwierciedla to na 
ekranie punktem w kolorze tła, czyli 
w kolorze zerowym. O tym, czy 
dany kolor będzie zielony, żółty czy 
jeszcze inny decydują specjalne 
rejestry, znajdujące się od adresu 
$dff180, którymi bliżej zajmiemy się 
przy innej okazji. Bazując na tych 
wiadomościach łatwo możemy wy- 
liczyć, że dla wyświetlenia jednej 
tylko linii obrazu w trybie „Lo-Res”, 
zajmującym 320 pixeli w poziomie, 
w dwóch kolorach, potrzebujemy 
320 bitów pamięci, czyli 320/8=40 


otrzymamy szukany adres: 
$70000+$28+$02=$7002A. A co 
z linią drugą? Proszę bardzo: adres 


linii poprzedniej (pierwszej) - 
$7002A, jej długość - $28, oraz 
modulo  -  $02. Dodajemy 


$7002A-+$28-++$02=$70054 i kolej- 
ny adres gotowy. Dokładnie przy- 
glądając się temu mechanizmowi 
tworzenia obrazu, można dojść do 
wniosku, że część pamięci nie jest 
wyświetlana i znajduje się niejako 
za ekranem, a Ściślej z jego prawej 
strony. Obrazuje to następujący 
rysunek: 


Obszar widoczny na ekranie 





modulacja kanału przeznaczenia przy wstawaniu znaku =40 





bajtów. Wynika z tego, że adres 
początku każdej kolejnej linii w pa- 
mięci ekranu będzie sumą adresu 
linii poprzedniej i wartości 40. Dla 
przykładu załóżmy, że zerowa linia 
ekranu znajduje się pod adresem 
$70000, łatwo obliczyć, że dane w 
pamięci dla linii pierwszej znajdują 


się pod adresem 
$70000+$28=$70028 
($28=dec40), linii drugiej 


$70028+$28=$70050 

($50=dec80), itd... | rzeczywiście 
tak z reguły jest, ale być nie musi. 
Istnieje bowiem rejestr zwany „mo- 
dulacją ekranu” (nie mylić z modu- 
lacją Blitter'a), do którego możemy 
wpisać wartość, która zostanie do- 
dana do wskaźnika pamięci obrazu 
po wyświetleniu każdej linii. Trochę 
to zagmatwane, ale rozpatrzmy 
przykład analogiczny do powy- 
ższego, w sytuacji, gdy modulo 
ekranu wynosi 2. Zerowa linia, tak 
jak powyżej, zostanie wyświetlona 
bazując na danych spod adresu 
$70000, dane dla linii następnej - 
pierwszej, zostaną pobrane spod 
adresu będącego sumą adresu linii 
poprzedniej ($70000), jej długości 
($28) oraz ustawionej modulacji 
(czyli $02). W rezultacie, sumując 
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modulo 
ekranu 
z 


Czy widzicie już możliwość wyko- 
rzystania modulacji w jakimś kon- 
kretnym zastosowaniu? O tak! 
Przecież to jest jakby specjalnie 
stworzone dla miłośników pisania 
scrolli! W miejsce uzyskane dzięki 
wprowadzeniu modulacji możemy 
przecież wstawiać co pewien czas 
kolelejną literę, a całość, począ- 
wszy od miejsca oznakowanego na 
rysunku symbolem „KON”, do ad- 
resu $70000 przesuwać w lewo. 
Cykliczne powtarzanie tych czyn- 
ności da w rezultacie złudzenie 
„płynięcia” napisu czyli po prostu 
najzwyklejszego w świecie scroll'a. 
Jego prędkość przesuwu zależeć 
będzie od wartości o jaką będziemy 
przesuwać jednorazowo zdefinio- 
wane okno w pamięci obrazu. Sto- 
sownie do tego należy również z 
odpowiednią częstotliwością wsta- 
wiać kolejną literę tekstu. W na- 
szym konkretnym przypadku, gdy 
modulacja ustawiona jest na2, czyli 
szerokość liter wynosić będzie 2*8 
bitów = 16 pixeli, oraz zamierzamy 
scrollować z prędkością najniższą 
(za każdym razem jeden pixel) no- 
wą literę musimy wstawiać co 
16/1=16 przesunięć. Jeżeli nato- 
miast chcielibyśmy scrolować z 
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prędkością większą, dajmy na to co 2 pixele, nową 
literę musielibyśmy wstawiać co 16/2=8 przesunięć. 
Jak łatwo się domyślić scrolowanie co 3 pixele wpro- 
wadza małe zamieszanie, jednak co 4 jest znów 
bardziej przyjemne i wymaga wstawienia każdej nowej 
litery co 16/4=4 przesunięcia. Bazując na powyższych 
wiadomościach napiszmy teraz procedurę wstawiania 
w odpowiednie miejsce pamięci ekranu danej litery, 
oraz samego scroll'owania. Zanim jednak to uczynimy 
przyjmijmy następujące założenia: 

*) Wszystkie litery są dwukolorowe (kolor tła i jeden 
właściwy) oraz mają jednakową wielkość tzn. 16 pixeli 
szerokości i 16 linii wysokości. 

*) W związku z powyższym na ekranie widocznych 
może być w całości 320/16=20 liter. 

*) Modulacja ekranu wynosi 2, co daje nam możliwość 
„ukrycia” poza ekranem jednej litery. 

*) Zestaw znaków wykonany jest jako obrazek o 
szerokości 320 pixeli. 

A oto procedura wstawiania litery: 


move.l łAdresLitery,$dff050 
move.l ł$00070028,$dff054 
move .w +ŁS$ffff,$dff044 

move .w +$ffff,$dff046 

move .w Ł$09f0,$dff040 

move .w ł$0000,$dff042 

move .w +38,$dff064 

move .w ł40,$dff066 

move .w 4[64*16]+1,$dff058 
rts 


Co wykonują poszczególne linie? Przyjrzyjmy się im 
dokładnie. Pierwsza z nich przesyła do rejestrów $050 
i $052 (proszę zwrócić uwagę na fakt przesyłania 
długiego słowa), czyli do BLTAPTH oraz BLTAPTL, 
adres litery w naszym zestawie znaków. Zauważmy, 
że adres ten jest inny i charakterystyczny dla każdej 
litery. Rozkaz w linii drugiej ustawia przeznaczenie, 
czyli adres, pod który ma zostać skopiowana litera na 
wartość $70028. Rozkazy w linii trzeciej i czwartej 
ustawiają maskę w ten sposób, aby cała litera została 
skopiowana ($ffff and $»0x, gdzie $x»0x jest dowolną 
wartością da nam zawsze w wyniku $»00x - aktualnie 
interpretowane jako kształt litery). Kolejny rozkaz usta- 
wia bity 4,5,6,7,8,11 w zerowym rejestrze kontroli. 
Odpowiadają one za: 

4,5,6,7 : Są kodem wykonywanej operacji, w tym 





przypadku oznaczają zwykłe kopiowanie. 

8 : Oznacza użycie kanału przeznaczenia. 

11 : Oznacza użycie kanału źródła A. 

Następny rozkaz kasuje bity w pierwszym rejestrze 
kontroli Blitter'a. Dalej ustawiamy modulację Blitter'a 
dla źródła A na wartość 38. Modulacja ta „mówi”, 
że po skopiowaniu każdej linii litery, Blitter ma 
dodać do wskaźnika źródła wartość 38, aby trafić 
na początek kolejnej linii litery. WW praktyce suma 
modulacji źródła i szerokości litery ma dać war- 
tość równą szerokości obrazka, z którego pobie- 
ramy literę lub inną jego część (teraz też literę 
możemy traktować jako część obrazka składającego 
się z całego alfabetu). Następny rozkaz ustawia z kolei 
modulację dla przeznaczenia na wartość 40. Ta mo- 
dulacja, analogicznie do poprzedniej, jest wartością 
którą doda Blitter do wskaźnika przeznaczenia po 
skopiowaniu każdej linii litery, w celu obliczenia 
adresu wstawienia kolejnej linii znaku. Wreszcie 
ostatni rozkaz definiuje wielkość kopiowanego 
bloku i oznajmia Bliterowi, że wszystko jest 
przygotowane, więc może wziąć sie do pracy. 
Wartość 1 w operandze jest szerokością naszego 
znaku wyrażoną w słowach (przypominam, że 
słowo to dwa bajty, czyli 16 bitów odzwierciedlających 
16 pixelij. Natomiast wartość 16 jest wysokością 
znaku. Iloczyn z liczbą 64 powoduje przesunięcie 
liczby 16 na wyższe, odpowiedzialne za pionową 
wysokość bity. 

A oto procedura scroll'owania o jeden pixel w lewo. 
Dokładnie zostanie skomentowana za miesiąc: 


move.l  4$70000+[17*42]-1,$dff050 
move.l 4$70000+[17*42]-1,$dff054 
move .w +$ffff,$dff044 

move .w +Ł$ffff,$dff046 

move .w +$19f0,$dff040 

move .w +$0002,$dff042 

move .w ł$0000,$dff064 

move .w 4$0000,$dff066 

move.w  f[64*17]+21,$dff058 

rts 


Krzysztof Kobus 


P.S. Kompletna procedura scroll'a wykonana wg 
powyższego algorytmu znajduje się na naszym 
drugim Kebab-Public-Domain-Dysku. 


zwoli na poprawne działanie przykładu. typu programu na poziomie pro. 
Sprawa druga 


Prograrny, o które Pan pyta istnieją na Szanowna redakcjo! 


zapewniam Pana, że listngi w oryginal- 
nej instrukcji obsługi są wydrukowane 
poprawnie tzn. bez błędów Niemniej jed- 
nak niektórzy "ambitni" dostawcy hurtowi 
sprzętu postanowili dołączać do kompute- 
ra tzw "polską instrukcję obsługi* Cieszy 
nas osobiście fakt, że dzięki temu rowniez 
nabywcy, którzy nie ukończyli studiów 
germanistycznych (ew  anglistycznych) 
mogą czegoś się dowiedzieć na temat 
obsługi dopiero co zakupionego sprzętu 
Smucr natomiast to, ze wiw tłumaczenie 
jest oprócz paskudnego wykonania este- 
tyczno - poligraficznego (wiadomo ko- 
Szty), |est równiez upstrzone cala masą 
błędów merytorycznych Nie znaczy to 
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oczywiście, że mamy wspomnianą książe- 
czkę wyrzucić od razu najbiiższego kosza 
na śmieci Musimy po prostu postarać się 
o oryginał Na szczęście nie wszyscy 
dostawcy wyrzucają go z pudełka, aby 
zrobić miejsce dla polskiej wersji. Gdy już 
zdobędziemy oryginalną instrukcję. musi- 
my odszukać wszystkie *mało istotne" 
szczegóły, którymi różnią się istingi przy- 
kładowych programow w j. BASIC. Może 
to być nawet zajmujące. Przypomina mi 
się znana zabawa ze środkowych stron 
*Przekroju* pt *Wytęz wzrok..." 1 znajdź xx 
szczegółów . Pamiętac nalezy przy tym, 
ze KAŻDA odnaleziona różnica jest błę 
dem, który najprawdopodobniej nie po- 


rynku Public Domain dla C-64 i umożliwiaja 
uzyskanie rozmaitych "bajeranckich* ete- 
któw Mam tu na myśli wszelkiej maści 
Demo-, czy Intro-Makery. Wspólną ich 
wadą jest to, ze nie powstały w Polsce 1 
w związku z tym ktoś *zapomniał zainsta- 
lować w nich polskie htery (jak zwykle 
powraca problem ogonka) Co w związku 
z tym mozemy zrobić? Postaramy się w 
jednym z najblizszych KEBAB'ów zamie- 
ścić tego typu program umożliwiający 
przynajmniej wykonanie podstawowych 
efektów z użyciem polskich hter Jezeli 
zainteresowanie (odzew Czytelnikówi bę- 
dzie wystarczająco duze, byc moze zde- 
cydujemy się również na wydanie tego 
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Z radością przyjąłem fakt, że od 
numeru 4192 pan Krzysztof Mo- 
roń rozpoczął cyki artykułów na 
temat AMOS'a... 

L. Jakubiak 


... Dlaczego przestaliście opisy- 
wać AMOS?... ... czy nie mogli- 
byście prowadzić kursu w tym 
języku podobnie jak prowadzi- 
cie kurs języka maszynowego? 


M. Lisman 
cd. nast 35 
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Gobliiins, 


czyli sporo niespodzianek. 








szystkim, którzy lubią tro- 
W chę pogłówkować w cza- 

sie grania z pewnością 
spodoba się gra pod tytułem „Gob- 
liiins”. Z gruntu prosta fabuła, do- 
bra grafika, a przede wszystkim 
kapitalne pomysły, duże poczucie 
humoru i zagadki, zagadki, i jesz- 
cze raz zagadki. Przejdźmy jednak 
do bohaterów naszej opowieści. 
Są to trzy małe, czerwono ubrane 
stworki o różnych zdolnościach i 
umiejętnościach. MERLIN, to ten 
łysawy z siwą bródką i żółtymi 
oczami, gdy pracuje. Ten facio 
naprawdę zna się na czarach. Ro- 
zumiem, wyczarować z jabłka wię- 
ksze jabłko, ale żeby z kreta ... 
(patrz etap 13). Zmyślnej głowie 
przyda się ktoś, komu Bozia nie 
dała „pod rogami”, ale za to nie 
poskąpiła na mięśniach. FIZOL 
przyda się nam wiele razy podczas 
naszej misji. Ostatnim członkiem 
wyprawy jest KIESZONA. Tylko on 
ma możliwość podnoszenia (zosta- 
wiania) przedmiotów, a także ich 
używania. Ruch postaci odbywa 
się przy wskaźniku w kształcie 
strzałki, zbieranie/zostawianie przy 
otwartej dłoni, _ cios/czarowa- 
nie/używanie obrazuje zaciśnięta 
pięść. Zmianę wskaźnika uzyskuje 
się prawym przyciskiem myszy. 
Lewy służy do wykonania polece- 
nia. Gra składa się z 22 etapów, 
każda ma swój kod, który umożliwia 
wejście na dowolny poziom gry. 
Opisywana wersja  Gobliiins ów 
miała ustawioną klawiaturę Azerty. 
Tym, którzy mają kłopoty ze znale- 
zieniem potrzebnych do kodów liter 
przyda się prawdopodobnie mała 
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ściągawka. Tak więc zamienione 
są tu litery W z Z, A z Q, litera M 
znajduje się pod klawiszem O um- 


laut (niemiecka klawiatura). _ Za- 
cznijmy więc od początku (nie 
opuszczajcie intra, jest Świetne!). 
Już po krótkiej chwili możemy się 
zorientować, że ktoś bardzo nie lubi 
naszego Króla. Z dziką rozkoszą 
zapewne dźga magiczny fetysz 
igłami, traktuje go młotkiem, łechce 
piórkiem i wymachuje pająkiem. 
Biedny Król odchodzi od zmysłów 
i pozosaje mu tylko nadzieja w jego 
wiernych sługach. Trzech naszych 
przyjaciół wyrusza niezwłocznie na 
poszukiwanie sprawcy tego nie- 
szczęścia. 


Etap 1 - zaczyna się przed chatą 
Czarnoksiężnika. Przyjrzyj się 


uważnie, a zauważysz poruszający 
się na bramie róg. Podejdź FIZO- 
LEM do prawego filaru i uderz w 
niego pięścią. Róg spadnie na 
ziemię. 


Teraz do akcji wkracza 


KIESZONA, podnosi róg i w niego 
dmie (używa). Z drzewa spada 
gałązka. Zaczaruj ją MERLINEM. 
Zamieni się ona w kilof. KIESZONA 
wchodzi w posiadanie tego narzę- 
dzia i w ten sposób kończymy ten 
etap (kliknij na okno GO!). 


Etap 2 - (VQVQFDE). MERLIN cza- 
ruje jabłka. Po chwili staną się 
nażwijmy to dorodne. Teraz FIZOL 
pokaże co potrafi, uderza pięścią 
w, licząc od lewej, drugie i czwarte 
jabłko. Na resztę szkoda jego wy- 
siłku, są robaczywe. Teraz KIE- 
SZONA przenosi opadłe jabłka nad 
przepaść i tam je używa. Wraca 
po pozostawiony kilof i używa go 
w grocie po przeciwnej Stronie. 
Tak dorabia się w końcu diamentu. 


Etap 3 - (ICIGCAA). Niech FIZOL 
jak najładniej potrafi zapuka do 
drzwi wejściowych... 


Etap 4 - (ECPQPCC). KIESZONA 
musi się rozstać na moment z 
diamentem i zabrać pierwszy od 
lewej pojemnik (pot 1) ze stolika z 
drabinką. Następnie używa go na 
prawym kwiatku. Z pojemnika wy- 
leci owad i mamy trzy sekundy na 
przegląd uzębienia roślinki. W tym 
czasie MERLIN czaruje lewy kwiat. 
Ten z kolei wyciąga się nieco. 
Wystarczy to jednak FIZOLOWI, 
który wdrapie się po nim i wyładuje 
nadmiar energii na książce w pra- 
wym rogu. KIESZONA wraca po 
diament i po książce wdrapuje się 
na biurko. Otwarta dłoń Czarno- 
księżnika niedwuznacznie daje do 





| Nasz kochany król nie ma chwili spokoju... 
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Etap 11 - bestia odlatuje wraz z ptaszkiem... 


zrozumienia co KIESZONA ma zro- 
bić z diamentem. Jeszcze tylko 
krótka wymiana zdań, z której wy- 
nika, że musimy udać się pod 
ziemię, by odszukać dla czarno- 
księżnika trzy rzeczy: Airain's Mus- 


hroom, Archnide's Elixir i Bald 
Plant. 
Etap 5 - (FTWKFEN). MERLIN 


schodzi na sam dół, gdzie czaruje 
wystający z ziemi tuż obok garbusa 
pręt. Pręt, jak to pręt, oczywiście 
się rozrasta. FIZOL, korzystając z 
okazji, „przykłada” pięść do prawe- 
go oka posągu. | oto mamy zgrab- 
ną windę. KIESZONA pakuje się 
na jężyko-windę, a MERLIN w tym 
czasie czaruje wygięty kształt nad 
sarkofagiem z lewej strony u góry. 
Teraz szybkim krokiem musi zbiec 
do KIESZONY na język. FIZOL raż 
jeszcze sprawdza dopasowanie 
oka posągu do swojej dłoni i cała 
ferajna jest już na górze. Po chwili 
z sarkofagu wyjdzie monstrum, któ- 
re przestraszy garbusa, roześmieje 
się urodziwie i wróci do siebie. 
Ostatni raz FIZOL uruchomi windę 
i KESZONA podniesie pozostawio- 
ny przez garbusa grzybek. A grzy- 
bek jest to nie byle jaki, bo 
dokładnie ten, którego szuka Czar- 
noksiężnik. 


Etap 6 - (HQWFTFW). Pająki by- 
wają złośliwe, dlatego lepiej będzie 
jak MERLIN profilaktycznie rzuci 





dwa razy urok na paskudę błoku- 
jącą most. FIZOL wspina się na 
najwyższy poziom i uderza w ostat- 
nią od lewej, krótką nić pajęczą. 
Pajączek podsunie się do góry na 
tyle, by KIESZONA dotarł do pisto- 
letu. Temu to dać! Najpierw strze- 
la do pająka blokującego wyjście z 
jaskini. Ten również podciągnie się 
do góry. Następną ofiarą jest śpią- 
cy po lewej stronie zwierzak. Tego 
nie dość, że uszkodzi, to jeszcze 
obrabuje. Skradzioną poduszkę 
kładzie na moście pod pająkiem. 
MERLIN czaruje nieboraka jeszcze 
raz iten gubi w końcu poszukiwany 
przez Czarnoksiężnika elixir. 


Etap 7 - (DWNDGBW). MERLIN 
zaczyna od zaczarowania torebki z 
nasionami na drzewie. KIESZONA, 
facet z natury praktyczny, używa ją 
na zaoranym polu tuż przy strachu 
na wróble. FIZOL oczywiście i stra- 
chowi nie przepuści, okładając go 
po brzuchu w czasie prób wyjada- 
nia nasion przez ptaki. Ale roślin 
coś nie widać. Długo się nie za- 
stanawiając MERLIN czaruje drugą 
chmurę po prawej stronie drzewa. 
Deszcz przyspiesza wzrost kwiatu, 
ostatniej brakującej dla Czarno- 
księżnika zdobyczy. Pojawia się 
on zresztą natychmiast po odbiór 
swoich rzeczy. 


Etap 8 - (JCJCJHM). Niestety oka- 
zuje się, że ktoś nas tutaj wykiwał. 


Lądujemy w lochu z bardzo miłym 
towarzystwem. MERLIN czaruje 
szkielet nieopodał drabinki. Szkie- 
let z tej wielkiej radości gubi pisz- 
czel (jeden w tą, jeden w tamtą...), 
który nasz czarodziej zamie- 

nia we flet. Ten z kolei, użyty 
przez KIESZONĘ na Śpiącej 
kobrze, powoduje tradycyjne 
rozciągnięcie delikwentki na 
kształt drabiny. Po niej FIZOL 
dostaje się na górę i uderza 

w kupę kamieni po prawej stronie 
ekranu. Teraz wystarczy tylko wy- 
ekspediować MERLINA i KIESZO- 
NE z deski, na którą FIZOL będzie 
spuszczał kamienie. 


Etap 9 - (ICVGCGT). KIESZONA 
musi podejść do mięsa (i użyć go 
na miejscu) jak najmniej zbliżając 
się do krokodyla. Bardzo to orygi- 
nalny „zły pies”, ale da się go 
obejść. 


Etap 10 - (LQPCUJV). KIESZONA 
zaspokaja apetyt mieszkańca naj- 
bliższej dziupli. Następnie bierze 
„Wietrzną skarpetkę” (bardzo swo- 
bodne tłumaczenie zważywszy, że 
chodzi o urządzenie do wizualnego 
pomiaru siły i kierunku wiatru), po 
czym robi sobie przerwę na lunch. 
MERLIN zajmuje się w tym czasie 
gałązką z powiewającymi listkami. 
Zgadnijcie co robi gałązka. Otóż 
gałązka się jak zwykle wydłuża. 
MERLIN grzeje na jej skraj. FIZOL 
natomiast wdrapawszy się na naj- 
większy kamień głuszy odstający 
kawałek gałęzi. Uporawszy się z 
MERLINEM, to samo robi z 
KIESZONĄ. Czary okazują się wiel- 
ce przydatne przy wyciąganiu z 
gałęzi korka. KIESZONA korkuje 
następnie dziuplę w grubej gałęzi 
i wraca po „wietrzną skarpet- 

kę”, która tym razem posłuży 

jako siatka na ptaki. FIZOL 
uderza pięścią w dziuplę z 
ptaszkiem.  Ptaszyna spło- 
szona takim traktowaniem 
wpada prosto w siatkę KIE- 
SZONY. 


Etap 11 - (HNWVGKB). Znowu 
bardzo ostrożnie KIESZONA pod- 
chodzi od przodu do krokodyla i 
„pokazuje mu” ptaszka (zdecydo- 
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wanie chodzi tu o tego przed chwilą 
złapanego). Gadzina wydaje się 
być wyraźnie zauroczona tym nie- 
codziennym widokiem. MERLIN 
podchodząc również od przodu 
czaruje krokodyla. Romantyczna 
dusza tego ostatniego odlatuje 
wraz z ptaszkiem. FIZOL z sobie 
wrodzoną delikatnością zapuka w 
drzwi dobudówki. 


Etap 12 - (FTQKVLE). KIESZONA 
znajduje zabawkę (piłkę z patycz- 
kiem), którą następnie prezentuje 
kościom lewej dłoni szkieletu. Na- 
stępnie wyjmuje z kałamarza pióro 
i łaskocze nim stopę kościotrupa. 
Z otwartej czaszki wypada kluczyk, 
który KIESZONA podaje tajemni- 
czemu więźniowi. MERLIN w mię- 
dzyczasie czaruje pozostawione 
pióro i przerabia go na packę na 
muchy. KIESZONA natychmiast 
próbuje wynalazek na przygodnej 
pszczole. Dymek ze zwłok infor- 
muje nas, że osa wydała ostatnie 
tchnienie. Czary MERLINA sepa- 
rują z jej trupa żądło. KIESZONA 
natychmiast używa go na obrazie 
Czarnoksiężnika. Z szafki opodal 
wypada fetysz, z pomocą którego 
zły czarodziej zadawał męki Królo- 
wi. KIESZONA zabiera lalkę i elixir 
przy szkielecie. 


Etap 13 - (DCPLQMH). MERLIN 
czaruje najbliższy wystający ko- 
rzeń. Podnosząc się ukazuję trąbkę 
do wabienia ptactwa. KIESZONA 
bierze ją i używa po wspięciu się 
na poziom gniazda. Na gnieździe 
wkrótce zasiądzie ptak. Z jaja wy- 
lęgną się jedynie nogi, a po inter- 
wencji MERLINA skrzydła. 
Wystarczy to jednak by przenieść 
maga na drugą stronę. Ukryty za 
murem MERLIN czaruje leżący na 
drodze klakson. KIESZONA bierze 
z powrotem elixir i używa go przy 
końcu murka. Niewidzialny prze- 
chodzi na drugą stronę. FIZOL rów- 
nież podąża do skraju muru. 
MERLIN czaruje znęconego zapa- 
chem kreta, który zamienia się w 
ruchomy, jak żywy akt kobiecy w 
4D! No niewątpliwie przy tego ro- 
dzaju odwróceniu uwagi Czarno- 
księżnika FIZOL może trzy razy 
przemaszerować tam i z powrotem. 
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Etap 14 - (EWDGPNL). MERLIN 
czaruje najbliższy długi kamień. 
KIESZONA bierze kij i po utworzo- 
nych schodkach włazi na duży ka- 
mień. Wsadza kij w dziurkę w 
dolnej prawej części i otrzymuje 
konewkę. Podlewa teraż drugą, 
trzecią i ostatnią (od prawej strony 
patrząc) roślinkę. MERLIN czaruje 
interesujące nas byliny.  FIZOL 
uderza w marchew z kluczykiem, 
który KIESZONA używa na sąsied- 
niej roślinie. Trzecia marchewka to 
już sama przyjemność. 


Etap 15 - (TCNGTOV). W tym 
etapie trzeba mieć nie lada kondy- 
cję, gdyż biegania jest tu sporo. 
FIZOL uderza w armatę tak, by 
celowała do góry. Następnie ude- 
rza w kule armatnie poniżej. KIE- 
SZONA bierze kulę armatnią i 
pakuje ją do lufy, goni po zapałki 
na górnym poziomie. FIZOL zno- 
wu uderza armatę tak, by patrzała 
do góry, a KIESZONA używa na 
niej zapałek. Po huku ze sklepienia 
wypadnie marchewka. KIESZONA 
używa zapałek w kuchni i kursem 
powrotnym zabiera marchew, którą 
wrzuca do lufy. FIZOL uderza ar- 
matę tak, by celowała na wprost. 
KIESZONA przynosi zapałki i odpa- 
la działo. Marchewka trafia do garn- 
ka, a jej zapach budzi Śpiocha. 
Całą zabawę powtarzamy jeszcze 
raz ż nową kulą i armatką wycelo- 
waną do góry. Nową marchewkę 
czaruje MERLIN. KIESZONA uży- 
wa tuby do nagłośnienia na przy- 
głuchym gospodarzu. Po krótkiej 
rozmowie KIESZONA bierze pałkę, 
którą używa na wiszącym powyżej 
gongu. Zabieramy wahadło i heja! 


Etap 16 - (TCVQRPM). KIESZONA 
bierze kamień i kładzie go na miej- 
scu oznaczonym krzyżykiem. 
MERLIN czaruje go dwa razy. To 
samo czeka pierwszą z lewej pal- 
mę. FIZOL uderza powstały kilof, 
KIESZONA używa go kilka razy na 
środku ekranu. 


Etap 17 - ((QDNKQO). FIZOL ude- 
rza w stos drewna po prawej stro- 
nie. KIESZONA używa wypadnięty 
pieniek na sidłach przy mostku. 
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MERLIN czaruje woreczek na po- 
ziomie smoka (nie zapomnij się 
zaraz potem wycofać). KIESZONA 
zostawia polano idzie po woreczek. 
MERLIN przemienia pozostawione 
polano na dezodorant. KIESZONA 
używa woreczka na górnym pozio- 
mie i zwabia stopę. Dezodorantem 
uspokaja ją bardzo i stawia smo- 
kowi na podeście. Świeżo wypie- 
czoną oddaje pułapce na moście. 
Teraz spokojnie zabiera miecz i 
stawia go smokowi na podpałkę. 
Płonący zabiera i już mu niewiele 
do szczęścia potrzeba. 


Etap 18 - (KKKPURE). KIESZONA 
używa płonący miecz na okrągłej 
tarczy na brzuchu posągu, wchodzi 
na dłoń z prawej strony ekranu, a 
następnie na drugą. Bierze klucz 
i używa go na głowie bóstwa. Te- 
raz wszyscy po kolei znikają na 
dłoni po prawej. 


Etap 19 - (NGOGKSP). KIESZONA 
bierze mydło i używa go na pisarzu. 
FIZOL uderza w kiść bananów. 
KIESZONA bierze opadnięty banan 
i używa go na pisarzu. Z górnej 
półki zabiera sztuczny nos i także 
używa go na delikwencie. Tak za- 
chęcony do pracy szybko kończy 
swoje dzieło - Księgę Czarów. 
MERLIN czaruje bramę wyjściową 
w wieży. 


Etap 20 - (NNGWTTO). MERLIN 
czaruje drobny koniuszek w ziemi 
tuż przy sarkofagu. FIZOL uderza 
w powstałą dźwignię. MERLIN cza- 
ruje korek w uchu olbrzyma, KIE- 
SZONA używa Księgę Czarów na 
tym uchu. W lewej wieży znajduje 
rybę i zostawia ją w miejscu, gdzie 
leży miska. Podstawia miskę pod 
oko olbrzyma z lewej strony. Po- 
wtórnie używa książki na uchu. 
Miska napełnia się łzami i jest go- 
towa do użycia jej na potworku 
znęconym rybą. 


Etap 21 - (LGWFGUS). KIESZONA 
strzela z procy do bananów. FIZOL 
uderza w dźwignię i wszyscy wsia- 
dają na rekina. 


Etap 22 - (TQNGFVC). MERLIN 
czaruje pierwszy od lewej koniu- 
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szek nogi szkieletu ptaka. KIESZO- 
NA wchodzi po linie i odstrzeliwuje 
z procy linę. Używa ją następnie na 
kolcu wystającym 2 górnego 
skrzydła szkieletu. Bierze worek i 
kładzie go w rogu ekranu, nad 
rekinem. Następnie z procy trafia 
Czarnoksiężnika. MERLIN czaruje 





s/ 





Castles 


ądź pozdrowiony Panie 

nasz i władco!!! _ Niech 

Bóg przyświeca twoim 
przedsięwzięciom ... Tak zaczyna 
się twoja nowa przygoda.  Za- 
szczyty, władza, własna armia, 
twierdze, polityka ... Wszystko to 
znajdziesz w grze pod tytułem „Ca- 
stles”. A zabawa jest przednia. 
Twoim głównym zadaniem jest bu- 
dowa i obrona własnoręcznie 
zaprojektowanych zamków. Jako 
niepodzielny władca musisz też, w 
międzyczasie, godzić zazwyczaj 
sprzeczne interesy swoich pod- 
władnych. Zanim zaczniemy grę, 
musimy najpierw zadecydować o 
kilku ważnych dla jej przebiegu 
rzeczach. Tak więc, wybieramy 
prędkość (steady, swift, laboureg), 
ilość zamków (1-8), stopień trudno- 
ści (peasant, duke, prince, king), 
wiadomości z królestwa, wreszcie 
świat w jakim przyjdzie nam egzy- 
stować (real, fantasy). Po wpisaniu 
naszego imienia i nażwy przyszłej 
budowli, możemy zabrać się do 
pracy. Na początku pokaże nam 
się obraz, który ułatwi nam strate- 
giczną lokalizację naszego za- 
mczyska. Wskazane jest więc 
miejsce, do którego dostęp jest jak 
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go i dziwne rzeczy dzieją się z nim 
w kotle. FIZOL wchodzi po linie i 
znowu folguje sobie swojemu hob- 
by, powodując kolejną przemianę 
Czarnoksiężnika. KIESZONA 
otwiera ogień swojej procy i uwał- 
nia FIZOLA. MERLIN po raz ostatni 
czaruje złego Czarnoksiężnika, któ- 


najbardziej ograniczony, np. wodą. 
Bliskość wody umożliwia także 
przyszłą budowę fosy. Należy rów- 
nież pamiętać, by przedpole, z któ- 
rego spodziewamy się ataków było 
jak najbardziej odsłonięte. Ewen- 
tualne zarośla, skały znacznie 
utrudnią nam późniejsze odpiera- 
nie ataków. Praktycznie jest także, 
na dobry początek, rozpocząć bu- 
dowę tylko kilku elementów, jedy- 
nie z grubsza planując całość 
naszego dzieła. Z praktyki tej gry 
wynika, że ewentualne ataki nastę- 
pują co najwyżej z dwóch kierun- 
ków i to przeważnie sąsiednich np.: 
SiSW. Po pierwszym ataku wiemy 
już więc, z której strony twierdza 
musi być szczególnie wzmocniona. 
Pozwoli nam to także umiejscowić 
delikatną i bardzo pracochłonną 
bramę. Przesuw ekranu odbywa 
się po najechaniu kursorem na 
ramkę obrazu odpowiedniego kie- 
runku i przyciśnięciu lewego przy- 
cisku myszy. Jeżeli już dokonałeś 
wyboru kliknij RMB. Z lewej strony 
ukaże się główne menu, a w nim 
ikony: Design, Labour, Taxes, Mi- 
litary, Food, Options. Poniżej ma- 
my aktualną datę, dane o grającym, 
skarbcu, ilości ukończonych i nie- 
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ry w postaci małych pajączków 
kończy karierę w worku KIESZONY. 


Król znowu jest wolny i zdrowy, 
nasi bohaterowie cało i zdrowo 
powrócili do domu, odtąd żyli 
długo i szczęśliwie... 


ukończonych partiach bu- 

dowli oraz „środkach inwestycyj- 
nych”. Pierwszą niezbędną czyn- 
nością jest wynajęcie robotników. 
Wybieramy więc ikonkę Labour i 
przyglądamy się nowemu menu. 
Mamy tu całą listę zawodów: ko- 
pacz, cieśla, murarz, kamieniarz, 
taczkarz i zwykły robotnik. „Hire” 
pozwoli nam podnieść aktualny 
stan zatrudnionych. „Fire” dokona 
„zwolnienia grupowego”. U dołu 
mamy dane o liczbie robotników, 
ich płacach i stanie skarbca. Płace 
możemy zmodyfikować klikając na 
ikonie „Wages”. Na liście płac do- 
datkowo znajdują sie żołnierze i 
łucznicy. Większe płace umożli- 
wiają zwiększenie maksymalnej li- 
czby zatrudnionych, szybszy 
najem, a także powodują ich lepszą 
pracę. W czasie napływu robotni- 
ków my zajmiemy się nadawaniem 
kształtów naszej twierdzy. Z głów- 
nego menu wybieramy Design. 
Mamy tu do wyboru dwa rodzaje 
baszt, mury, bramę oraz „buldo- 
żer. Poniżej znajdują się bardzo 
ważne informacje o każdej budo- 
wanej partii. Tak więc od góry: 
planowana wysokość, ilość pracu- 
jących tu robotników, iłość dni do 
zakończenia budowy, aktualny 
stan (no workers, waiting, building, 
unstable, complete), otwory strze- 
leckie i do lania wrzątku (w 

przypadku murów także ich 

grubość), Środki, ilość naję- 

tych robotników „bez przy- 

działu” i w końcu aktualna 

wysokość. W zależności od 

fantazji możemy położyć fun- 

damenty całego zamku, a nastę- 
pnie stopniowo wznosić poszcze- 
gólne elementy. Nigdy nie buduj 
samego muru niepodpartego ba- 
sztami (chociażby w budowie) z 
obu stron !!! Przeważnie kończy 
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| Nasz zamek może wyglądać np. tak... 
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się to komunikatem „unstable” i 
uroczym nagrobkiem dla zatru- 
dnionych tam robotników (zawale- 
niem). Teraz możemy już 
postarać się o armię która zatrosz- 
czy się o obronę budowli (główne 
menu, Military). Strzałkami ustala- 
my przyszłą liczebność armii. Ma- 
ksymalna liczba żołnierzy zależy od 
ilości zaplanowanych elementów 
twierdzy. Większa budowla umo- 
żliwia kwaterunek większej armii. 
Bardzo ważny jest tu wskaźnik Ra- 
ting (mediocre, poor, good, exce- 
lent, elite), Oddziały „liche” lub 
„słabe” będą w czasie bitew padać 
jak muchy. Mamy tutaj także opcję 
Moat. Po jej użyciu wokół naszego 
zamku pojawią się kopacze, którzy 
w ekspresowym tempie wykopią 
zgrabną fosę. Ikona Taxes daje 
nam pełną kontrolę nad finansami 
państwa. U góry możemy ustalić 
poziom rocznego opodatkowania. 
Generous to roczne dochody na 
poziomie 2000 funtów, Normal 
2500, Opressive 3000 i Tyranic 
3500. Poniżej możemy każdego 
miesiąca uchwalić extra podatek 
(Levy) w przypadku przejściowych 
kłopotów finansowych. Jego wy- 
sokość ustalamy strzałkami, wypeł- 
niony kwadracik oznacza Twoją 
zgodę na ściągnięcie podatku w 
tym miesiącu. Na samej górze 
możemy uzyskać dokładne spra- 
wozdanie o stanie budżetu pań- 
stwa (Treasurer). Lista obejmuje 
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wykaz miesięcznie ponoszonych 
kosztów na siły zbrojne, „klasę ro- 
botniczą” i pozostałe. Poniżej ma- 
my wykaz rocznych dochodów ze 
wszystkich zamków. W zależności 
od stanu skarbca skarbnik ostrze- 
ga nas lub doradza kupno najpo- 
trzebniejszych dóbr. _ Wybierając 
Food z głównego menu, możemy 
zaopatrzyć nasz zamek w zapas 
żywności. Maksymalnie w ciągu 
jednego miesiąca możemy nabyć 
150 jednostek. Cena jednej jedno- 
stki zmienia się oczywiście w ciągu 
roku od 3 do 1 funtów. Na przed- 
nówku jest oczywiście najwyższa, 
dlatego praktycznie jest kupować 
w czasie ostatnich trzech miesięcy. 
Zbagatelizowanie zapasów żywno- 
ści może spowodować znaczny 
ubytek w armii i wśród robotników 
w czasie długiej zimy. Szczególnie 
ważna jest nasza spiżarnia, gdy 
nasz przeciwnik wpadnie na po- 
mysł oblegania zamku. Stopnieją 
wtedy albo twoje zapasy, albo sze- 
regi twojej armii. Od czasu do 
czasu głodne szczury lubią wpaść 
na „małe conieco” (niech mi Kubuś 
Puchatek wybaczy...), nie zapomnij 
więc często kontrolować stanu ma- 
gażynów. Tak więc, zostało nam 
już tylko porozwodzić się chwilę 
nad ostatnią ikoną, Options Z 
grubsza jej menu wygląda na 
standardowe, a więc Load, Save, 
Quit, Speed, Main. Jest tu jednak 
bardzo przydatne nowum, Coun- 
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sel. Po kliknięciu na tej ikonce 
przed nasze oblicze stawi się Sir 
Richard ż Westhampton, jeden z 
najświetniejszych rycerzy Realm'u. 
Z bliżej nieznanych źródeł posiada 
on zawsze aktualne informacje o 
tym, co myślą o tobie możnowład- 
cy, Kościół oraz prości współziom- 
kowie. Sir Richard z Westhampton 
zawsze gotów jest udzielić Ci 
wszelkich porad. 

Po tych „technicznych” szczegó- 
tach przejdzmy do przebiegu gry. 
Zaraz po położeniu fundamentów i 
najęciu robotników, na placu budo- 
wy zaczynają się kręcić przeróżne 
postacie. Twoja twierdza rośnie w 
oczach. Po krótkim czasie murarze 
stoją już na rusztowaniach podcią- 
gając sobie wiadra ż materiałem na 
limach, wokoł kręcą się taczkarze, 
cieśle piłują drewno na przyszłym 
dziedzińcu. Nad wszystkim czuwa 
zarządca na koniu. Całość wyglą- 
da szalenie sympatycznie i skute- 
cznie zabija czas oczekiwania na 
inne doniosłe wydarzenia. W mię- 
dzyczasie Ty zajmujesz się „rzą- 
dzeniem”. Co chwila przychodzą 
do Ciebie różni ludzie z prośbą o 
radę, żądaniem, narzekaniem itp. 
A problemy są tu najróżniejsze. 
Pół biedy gdy jest to twój wierny 
rycerz z prośbą o nadanie imienia 
swojej córce, Twój syn po bójce w 
karczmie, czy Biskup na partyjce 
szachów (za którymi nie przepa- 
dasz). Zdarza się jednak często, 
że gdzieś rozrabia jakiś wyjęty spod 
prawa banita, ktoś oferuje Ci przy- 
mierze, inny prosi o wsparcie w 
walucie lub wojsku, Twój dawno 
wygnany brat chce powrócić do 
łask, Kościół wiecznie widzi we 
wszystkim szatana którego z po- 
mocą twej armii ma ochotę okieł- 
znać itd, itp. Większość 
problemów jest tak sformowana, że 
musisz dokonać wyboru pomiędzy 
interesami różnych grup społecz- 
nych. Balansowanie na tej cienkiej 
niteczce na prawdę nie jest proste. 
Gdybyś miał z tym problem, pamię- 
taj o Sir Richard' zie z Westhamp- 
ton. On podpowie Ci, kto 
ewentualnie jest niezadowolony z 
twoich rządów. To jednak nie 
wszystkie problemy jakie na Ciebie 
czekają. Od czasu do czasu twoją 
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budowę przerywają potyczki z ar- 
mią wroga. Na początku gry od- 
działy te nie są zbyt silne. W 
przypadku wytropienia wroga 
ekran automatycznie przełącza się 
i możemy rozpocząć rozmieszcza- 
nie naszych oddziałów (zwróć uwa- 
gę na kierunek z jakiego nadciąga 
nieprzyjaciel). Łucznicy najlepiej 
komponują się na basztach i mu- 
rach. Piechotę warto rozmieścić 
pod murami twierdzy. Jak tylko 
uporamy się z tym problemem, 
rozpoczyna się bitwa. Twoja rola 
ogranicza się do wyboru celu dla 
poszczególnych jednostek. Kliknij 
więc na swojego żołnierza (pojawi 
się żółty kwadrat), a następnie na 
oddział wroga (czerwony). Od tej 
pory będzie to już nierozłączna 
para aż do śmierci jednego z nich. 
Taktyka jest już twoim pomysłem. 
Lepiej jest chyba rozegrać bitwę 


nie dopuszczając wroga pod mury. 
Tam może ich czekać co prawda 
bardzo gorąca kąpiel (wrzątek z 
otworów w murze), ale uszkodzenie 
lub zniszczenie części zamku może 
być przykre w skutkach. Jego od- 
budowa zabierze dużo czasu i pie- 
niędzy. W miarę rozwoju gry nasz 
przeciwnik atakuje coraz skutecz- 
niej. Najgroźniejsze są awantury z 
możnowładcami, których posłań- 
ców właśnie odesłaliśmy z kwit- 
kiem. Ich armie atakują 
przeważnie w dwóch rzutach. Prze- 
staje tu działać zasada, że ataki 
następują z sąsiednich kierunków. 
Przeciwnicy ciągną także ze sobą 
specjalne machiny wojenne do ro- 
bienia wyłomów w murach. Fosa 
jest tu jednak wystarczającą bronią. 
Po zakończonej bitwie uzupełnia- 
my ubytki w budowli i armii. (W 
takich warunkach próbujemy do- 


kończyć nasz zamek. Sir Richard 
z Westhampton powie Ci ile części 
trzeba jeszcze wybudować by ze- 
brać większe podatki (nie jest to 
niezbędne dla skończenia gry). 
Kiedy wszystkie części (twierdze w 
przypadku opcji gry z ośmioma 
zamkami) są już gotowe, czeka Cię 
jeszcze decydująca bitwa. Musisz 
obronić swój dopiero co zrealizo- 
wany pomysł. Po tym ostatecznym 
zwycięstwie komputer podsumuje 
twoje wysiłki, raz jeszcze objawią 
się opinie możnych, Kościoła, pro- 
stych obywatel. Jeszcze tylko 
„Dziękuję za grę...” i to już koniec. 
Powodzenia! 


Mc Greg 





Sprzedam C-64, joystick, magneto- 
fon, moduł, 600 programów, gwa- 
rancja, pokrywa 

Andrzej Tomulewicz 

ul. Stroma 35/8 

15-662 Białystok 

tel. 613362 


Kupię cartridge "Simon's Basic". 
Oferty listowne: 

Adam Nagórka 

ul. Kilińskiego 10/29 

28-200 Staszów 


Nawiążę kontakt z osobami posia- 
dającymi A500 i programującymi 
w AMOSie. 

Maciej Lisman 

ul. Jugosłowiańska 37/F/9 
Stargard Szcz. 


AMIGA - wymienię programy 
Dariusz Sitek 

ZWM 24/83 

42-200 Częstochowa 


Pilnie sprzedam C-64 (stan ideal- 
ny) + peryferia. (info: koperta + 
znaczek) 

Krzysztof Piętak 

ul. Ludowa 15 

32-547 Jaworzno 


Sprzedam "Bazę danych" dla C-64 
(dysk + instrukcja + dodatkowy 
program) cena 28000zł. 

Dominik Latusek; Os. Kosmonau- 
tów 23/4; 61-692 Poznań 


Sprzedam A500 Action Replay Mk 
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ti (1,3 min zł.) 
Mariusz Piechówka 
Box-98 

74-100 Gryfino 


Sprzedam: drukarkę LC-200 Color 
(wbudowarie polskie znaki) Cena 
4 min zł 

Marcin Balewicz 

ul. Odrzańska 10/103 

30-408 Kraków 


Poszukujemy do sprzedaży legal- 
nego oprogramowania peryferii 
IBM, Amiga, Commodore "Komis" 
S.C. Studio Komputerowe JAK 
ul. Kolejowa 1 Ip. 

63-800 Gostyń 


Sprzedam Amigę 500, modulator 
TV, Joystick, dyskietki. Orientacyj- 
na cena 5.500.000 zł. 

Sławomir Krzych 

ul. Kard. Wyszyńskiego 48/81 
Konin 

tel.42-18-15 


Sprzedam sampler mono (40KHz) 
+ dysk 3,5" + kabel + instrukcja 
+ 1 rok gwarancji. 400.000,- 
Piotr Laszczyk 

Szeligówka 976 

34-511 Kościelisko 


Zamienię motorower JAWA i gry 
TV na C64/128. Listy na adres: 
Bartłomiej Ryłko 

Istebna 500 

43-460 Wisła 

woj. Bielskie 


wymienię oprogramowanie na C- 
64 i / lub Amigę. Szukam mapy 
pamięci do C-64. 

Piotr Pacyna 

uł. Poznańska 3 

64-200 Wolsztyn 


Sprzedam Amigę 500 (v1.3; 1MB) 
+ liter. + modulator + 2 joysticki 
+ 460 dyskietek z grami. Cena 12 
min. 

Robert Lipiec 

ul. J. Śliwki 4/5 

44-100 Gliwice 


Drukarkę Star LC-20 na gwarancji 
tanio sprzedam. 

Qlgierd Grunau 

ul. Limanowskiego 3/1 

71-664 Szczecin 


Najlepsze gry, dema, użytki na 
Amigę. Katalog: koperta + zna- 
czek 

Radosław Twardzik 

ul. Przemysłowa 31 

22-100 Chełm 


Sprzedam Amigę 500, 1MB, zew- 
nętrzna stacja 3A1, monitor 

10848, 320 dysków + 2 x disk box 
Rafał Roszak 

ul. Łubomirskiego 1/7 

71-505 Szczecin 


Sprzedam C-64 z magnetofonem, 
final III, black box v.2, ok. 600 pro- 
gramów, literatura (ok. 2500 tys. 
zł.) 


KENDA 


Jarosław Michalski 
ul. Wolności 3/4 
22-100 Chełm 


Wymiana obszernej biblioteki opro- 
gramowania, literatury, doświad- 
czeń, C=64 C= 128, stacja 
dysków, drukarki 

Commodore Club 

uł. Chopina 7 

57-320 Połarica 


AMIGA - programy public domain, 
gry, użytki (koperta + znaczek) 
Tomasz Chojnacki 

ul. Powstańców Śląskich 57 
32-300 Olkusz 


Sprzedam C64II (gwarancja), 
1541 ll, Final lll, joystick, dyskietki 
z programami. 4 min zł. 

Piotr Domeradzki 

ul. Parzęczewska 30/11 

95-100 Zgierz 


Sprzedam GVP Impact Vision 24 
z adapterem do A2000, G-Force 
030 "combo" 50 MHz/4MB RAM z 
koprocesorem + Quantum 
LPS105 MB, Supra RAM 500RX, 
Digi Tiger Il, Multiviston 2000/500, 
Action Replay Mk III do A500 i 
A2000. Tylko poważne olferty 
Kontakt listowny: 

Silver Dream!'s 

ul. Wojciechowskiego 28 

71-476 Szczecin 41 
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Listing nr 1 





0 REM BAZA DANYCH 64 (W) P.SOLTYSINSKI 

1 REM (C) 1992 KEBAB LTD. 

2. : 

3 X=8:IFPEEK(186)=1THENX=1 

4 POKE50000,xX:GOSUB 5:GOTO 20 

5 X$=CHR$(18):Y$=CHR$(146):Z$=CHR$ (145) 

6 D$="(TASMA)":IF PEEK(50000)=8 THEN D$="(DYSK)" 

10 LS$="":FOR R=1TO040:L$=L$+" ":NEXT:PRINTCHR$ (5) :RETURN 


20 PRINTCHR$(147);L$;TAB(53);"BAZA DANYCH 64":PRINTTAB(13);"(C) 1992 KEBAB" 
30 PRINTL$ 


40 PRINTTAB(17);X$;" MENU ":PRINT:PRINTTAB(3)X$;" 1 ";Y$;" - ZAKLADANIE BAZY" 
50 PRINT:PRINTTAB(3);X$;" 2 ";Y$;" -— ODCZYT BAZY ";D$:PRINT 

60 PRINTTAB(3);x$;" 3 ";Y$;" -— ZAPIS BAZY ";D$:PRINT 

70 PRINTTAB(3);X$;" 4 ";Y$;" - OPERACJE NA ZAPISANYCH DANYCH" :PRINT 

80 PRINTTAB(3);xX$;" 5 ";Y$;" — SORTOWANIE DANYCH W/G KLUCZA" :PRINT 


90 PRINTLS$:PRINT" NAZWA BAZY: ";NB$:PRINT:PRINT" ILOSC DOKONANYCH ZAPISOW:";1IL 


PRINT:PRINTL$;SPC(4); "WYBIERZ OPCJE KLAWISZEM OD 1 DO 5"; 
GETA$:IFA$<"1" OR A$>"5" GOTO 110 

IF NB$<>"" THEN 140 

IF A$>"2" THENPRINTCHR$(147);"BRAK DANYCH! ":FORT=0TO1200:NEXT:RUN 
ON VAL(A$) GOTO 1000,4000,3000,2000,5000 

GOSUB 900:IF A$="N"THEN2101 

FOR T=K TO IL:FOR R=1 TO KL:B$(K,R)=B$(K+1,R):NEXT:NEXT 


FOR R=l TO KL:B$(IL,R)="":NEXT:IL=IL-1:IF IL=0 THEN 20 
IF K>IL THEN K=IL 

GOTO 2101 

GOSUB 2110:PRINT"PODAJ NUMER POZYCJI DO MODYFIKACJI:" 


PRINT "l -";KL;":";:POKE19,16:INPUT P%:POKE19,0:IF P%<1l OR P%>KL THEN850 
PRINT:PRINT"PODAJ NOWA ZAWARTOSC:":PRINT:PRINTKL$(P%);":"; 
POKE19,16:INPUT B$(K,P%):POKE19,0:GOTO 2101 
GETA$:IF A$<>"T" AND A$<>"N" THEN 900 
RETURN 

PRINTCHR$ (147) 

IF NB$=""THEN 1050 

PRINT"SKASOWAC AKTUALNE DANE (T/N)?" 

GOSUB 900 

IF A$="N"THEN2 O 

CLR:GOSUB5:PRINTCHR$ (147);L$;SPC(9);"ZAKLADANIE NOWEJ BAZY":PRINTL$ 
POKE19,16:PRINT"PODAJ NAZWE DLA NOWEJ BAZY:":INPUT">";NB$ 
NB$=LEFT$(NB$,15) 

PRINT:INPUT"PODAJ LICZBE KLUCZY (1-10):";KL:KL=INT(ABS(KL) 

IF KL<i OR KL>10 THEN1070 

PRINT:PRINTL$:DIMB$(300,KL):IL=0 

FOR T=1TOKL:PRINT"KLUCZ NR";T;":";:INPUT KL$(T):PRINT 
KL$(T)=LEFT$(KL$(T),16):NEXT 

PRINTCHR$ (147);L$;X$;"NAZWA BAZY:";Y$;" ";NB$:PRINTLŚ$; 


FOR T=1TOKL:PRINTX$;"KLUCZ NR";T;CHR$(157);":";Y$;KL$(T):NEXT:POKE19,0 
PRINT:PRINT"CZY WSZYSTKO W PORZADKU (T/N)?" 

GOSUB900 

IF A$="N"THEN1050 

Goro 20 


IF IL>0 THEN2100 

PRINTCHR$(147);L$;S5PC(4);"WPROWADZANIE NOWEGO ZAPISU NR";IL+1:PRINTL$ 
IF IL=300 THEN PRINT"BAZA PELNA1!":FORT=1TO1500:NEXT:GOTO2000 

FOR T=1TO KL:PRINTX$;T;CHR$(157);".";KL$(T);Y$;TAB(19); 
POKE19,16:INPUT":";B$:POKE19,0:B$(IL+1,T)=LEFT$(B$,19):B$="":PRINT:NEXT 
PRINTCHR$(147);L$;SPC(4);"PRZYJETO DANE DLA ZAPISU NR";IL+1;":":PRINTL$ 
FORT=1TO KL:PRINTX$;T;CHR$(157);".";KL$(T);Y$;TAB(19);":";B$(IL+1,T) 
NEXT:PRINT:PRINT"CZY WSZYSTKO SIE ZGADZA (T/N)?":GOSUB 900 

IF A$="N" THEN2010 

IL=IL+1:PRINT:PRINT"NASTEPNY ZAPIS (T/N)?":GOSUB900:IFA$="T"THEN2010 
K=IL 

GOSUB 2110:GOTO 2150 

POKE53265,11 

A$="BAZA DANYCH: "+NB$:C=19-INT(LEN(A$)/2):PRINTCHR$(147);L$;SPC(C);A$ 
PRINTL$; "ZAPIS NR";K;":":PRINT 

FORT=1TO KL:PRINTX$;T;CHR$(157);".";KL$(T);Y$;TAB(19);":";B$(K,T):NEXT 
PRINT:PRINTL$; :POKE53265,27:RETURN 

PRINTX$;"[1]";Y$;"-WYSZUKIWANIE ZAPISU W/G KLUCZA" 
PRINTX$;"[2]";Y$;"-KASOWANIE ZAPISU" 

PRINTX$;"[3]";Y$;"-MODYFIKACJA ZAPISU" 

PRINTX$;"[4]";Y$;"-DOPISANIE NOWEGO ZAPISU" 
PRINTX$;"+/-";Y$;"-PRZEGLADANIE ZAPISOW" 
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3050 
3060 
3070 
3080 
3090 
3095 
3100 
3105 
3110 
3120 
3130 
3140 
4000 
4010 
4020 
4025 
4030 
4040 
4044 
4050 
4060 
4070 
4080 
4085 
4090 
4095 
4100 
4105 
4120 
4130 
4135 
4140 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5065 
5070 
5080 
6000 
6010 
6020 
6030 
6040 
6050 


PRINTX$;"[M]";Y$;"-POWROT DO GLOWNEGO MENU" 


GETA$:IF A$="M" THEN 20 
IFA$="+" AND K<IL THEN K=K+1:GOTO 2101 
IFA$="-" AND K>l THEN K=K-1:GOTO 2101 
IFA$="4" THEN 2010 
IFA$="2" THENPRINT:PRINT"NA PEWNO KASOWAC (T/N)?":GOTO 800 
IFA$="3"THEN 850 
IFA$<>"1"THEN2200 
PRINTCHR$ (147);TAB(4); "WYSZUKIWANIE ZAPISÓW W/G KLUCZY" :PRINTL$ 
FORT=1TOKL:PRINTT;CHR$(157);".";KL$(T):NEXT:PRINT:PRINT"PODAJ NUMER KLUCZA 
PRINT"(1 -";KL;CHR$(157);")";:INPUT W%:IFW%<1 OR W%>KL THEN 2270 
PRINT:POKE19,16:INPUT"PODAJ SZUKANY TEKST:";T$:POKE19,0 
K=1:M=1:N=l 
IFMID$(T$,N,1)="2"THEN2340 
IFMID$ (T$,N,1)<>MID$(B$(M,W%),N,1)THEN 2360 
N=N+ 1: IFN<=LEN (T$ ) THEN2320 
=M:GOSUB 2110:PRINT"NASTEPNY ZAPIS (T/N)?":GOSUB900:IFA$="N"THEN2370 
M=M+1:N=l:IFM<=ILTHEN2320 
PRINT:PRINT"KONIEC DANYCH DO PRZESZUKIWANIA. ":FORT=1TO1900:NEXT:GOTO2101 
PRINTCHR$(147);L$;SPC(4);"ZAPISANIE BAZY NA NOSNIK ";D$:PRINTL$; 


PRINT"[1] -—- ZMIANA URZADZENIA (TASMA/DYSK)" 
PRINT"[2] - ZAPISANIE BAZY":IFPEEK(50000)=8THENPRINT"[3] - KATALOG DYSKU" 
PRINT"[M] - POWROT DO MENU" 


GETA$:IF A$="M" THEN20 

IF A$="2" THEN3090 

IFA$="3"AND PEEK(50000)=8THEN GOSUB6000:GOTO3000 

IF A$<>"1"THEN3030 

IF PEEK(50000)=8THEN X=1:GOTO3080 

X=8 

POKE50000,X:GOSUB5:GOTO3000 

PRINT:POKE19,16:INPUT"PODAJ NAZWE:";N$:POKE19,0:PRINT 
PRINT:PRINT"PRZYGOTUJ NOSNIK ";D$;".":PRINT"WCISNIJ [RETURN] GDY JUZ." 
GETA$:IF A$<>CHR$(13)THEN3100 

PRINT"OK..." 

IFPEEK(50000)=8THENOPEN1,8,15,"S:"+N$:CLOSE1 
OPEN1,PEEK(50000),1,N$+",S":PRINTĘ1,NB$:PRINTĘ1,IL:PRINTĘ1,KL 
FORT=1TOKL:PRINTĘ1,KL$(T):NEXT 
FORT=1TOIL:FORR=1TOKL:PRINTĘ1,B$(T,R):NEXT:NEXT:CLOSE1 :GOTO20 
PRINTCHR$(147);L$;SPC(5); "ODCZYT BAZY Z NOSNIKA ";D$:PRINTL$; 


PRINT"[1] —- ZMIANA URZADZENIA (TASMA/DYSK)" 
PRINT"[2] —- ODCZYTANIE BAZY":IFPEEK(50000)=8THENPRINT"[3] — KATALOG DYSKU" 
PRINT"[M] - POWROT DO MENU" 


GETA$:IF A$="M" THEN20 

IF A$="2" THEN4090 

IFA$="3"AND PEEK(50000)=8THEN GOSUB6000:GOTO4000 

IF A$<>"]"THEN4030 

IF PEEK(50000)=8THEN X=1:GOTO4080 

X=8 

POKE50000, xX:GOSUB5 :GOTO4000 

CLR: GOSUB5 

PRINT:POKE19,16:INPUT"PODAJ NAZWE:";N$:POKE19,0:PRINT 
PRINT:PRINT"PRZYGOTUJ NOSNIK ";D$;".":PRINT"WCISNIJ [RETURN] GDY JUZ." 
GETA$:IF A$<>CHR$(13)THEN4100 

PRINT"OK..." 
OPEN1,PEEK(50000),0,N$+",S":INPUTĘ1,NB$:INPUTĘ1,IL:INPUTĘ1,KL 
FORT=1TOKL:INPUTĘ1|,KL$(T) :NEXT 

DIMB$(300,KL) 

FORT=1TOIL:FORR=1TOKL: INPUTĘ1,B$(T,R):NEXT:NEXT:CLOSE1:GOTO20 
PRINTCHR$(147);L$;SPC(6); "SORTOWANIE DANYCH W/G KLUCZA" :;PRINTL$ 
FORT=1TOKL:PRINTT;CHR$(157);".";KL$(T):NEXT:PRINT 

PRINT"PODAJ NUMER KLUCZA, W/G KTOREGO ODBEDZIESIE SORTOWANIE ZAPISOW:" 
PRINT:PRINT"KLUCZ NR (1 —";KL;CHR$(157);"):";:POKE19,16:INPUTW%:POKE19,0 


PRINT:PRINT:PRINT"PROSZE POCZEKAC — "TRWA SORTOWANIE..." 
IF IL=LTHEN2O0 
FOR T=1TOIL-1:POKE211,0:PRINTIL-T;CHR$(157);" "*;:FORR=T+1TOIL 


IFB$(T,W$%)<=B$(R,W%) THEN5080 
FORC=1TOKL:A$=B$(T,C):B$(T,C)=B$(R,C):B$(R,C)=A$:NEXT 
NEXT:NEXT:K=l1:GOTO2101 
PRINT:OPEN1,8,0,"$":GET$Ę1,A$,A$ 


GETĘ1,T$,S$:GETA$:IF ST OR A$=" "THEN6050 USE 
GETĘ1,A$,B$:PRINT TAB(5);ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)); 20 
GETH1,A$:PRINTA$;:IF A$="" THEN PRINT:GOTO6010 30 
GOTO6030 

CLOSE1:PRINT:PRINTX$; "WCISNIJ DOWOLNY KLAWISZ...":WAIT198,1:RETURN 
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Listing nr 2 


/* Tabela kodow ASCII */ 
LF="0A'X 
ADDRESS 'rexx ced' 
Wypisz="TabliGa kodow ASCII' ||LF| |LF 
Do i=32 To 127 
wypisz=Wypisz| |CENTER(i,4) | |D2C(i) 
IF i//8=7 THEN 
wypisz=wypisz| |LF 
ELSE 
wypisz=wypisz ||' 7 
END 
Okayl Wypisz 


Listing nr 4 


/* Podreczny kalkulator */ 
OPTIONS RESULTS 

SIGNAL ON SYNTAX 

ADDRESS 'rexx Cced' 
Getstring a 

Wyr=RESULT 


IF Wyr'='RESULT'" 6 Wyr'="' THEN 
DO 
oblicz='a=' | |wyr 
INTERPRET Oblicz 
Ookayl a 
END 
EXIT O 
SYNTAX: 
Okayl 'wyrazenie jest niepoprawne” 
EXIT O 


Listing nr 5 


/* Slownik w ARexx'ie */ 
SIGNAL ON ERROR 
LF="0A'X 
Slownik='Dictionary.txt"' 
OPTIONS RESULTS 
ADDRESS 'rexx ced' 
status 21 a 
AktualnyPlik=UPPER (RESULT) 
'Jump to file' UPPER(Slownik) 
IF RESULT THEN 

CALL Wyjdz 


/* Wywolaj procedure Wyjdz z parametrem 


'GetString"' 
DoTlumaczenia=RESULT 
IF (DoTlumaczenia=="') | 
CALL Wyjdz 'Tlumaczenie anulowane" 
'Beg of file' 
'search for' DoTlumaczenia 1 0 1 1 
IF RESULT =0 THEN 
DO status 55 
Przetlumaczone=RESULT 


CALL Wyjdz COMPRESS(Przetlumaczone,LF) 
usuwa z <tekst> wszystkie wystapienia znaku <zn> */ 


/* COMPRESS(tekst,zn) 

END 

Getstring 

Opis=RESULT 

IF (Opis=='*) | (Opis='RESULT') 
CALL Wyjdz 'Opis anulowany" 

'End of file' 

Text DoTlumaczenia||' - '||opis| |LF 


THEN 


(DoTlumaczenia='RESULT"' ) 


Listing nr 3 


O OD LL ZZO LL TEZY ŻLE 


/* Tabela kodow ASCII */ 
LF="0A'X 
NazwaTablicy='ASCII.clip' 
ADDRESS 'rexx Cced' 
Wypisz=GETCLIP(NazwaTablicy) 
IF Wypisz='' THEN DO 
wypisz='"Tablica kodow ASCII' | |LF| |LF 
DO i=32 TO 127 
wypisz=wypisz | |CENTER(i,4) | |D2C(i) 
IF i//8=7 THEN 
Wwypisz=wypisz | |LF 
ELSE 
wypisz=wypisz ||” ę 
END 
CALL SETCLIP(NazwaTablicy,Wypisz) 
END 
Okayl Wypisz 


/* wez nazwe aktualnego pliku z Cygnus'a */ 
/* Przenies kursor do odpowiedniego pliku */ 


'Nie moge znalezc slownika!" 


'Nie mog znale slownika */ 


THEN 


/* Skocz na poczatek slownika */ 


/* Szukaj wyrazu */ 


/* Wez linie tekstu z Cygnus'a */ 


/* Te trży linie dopisuja nowe okreslenie */ 


Nr 6 '92 


CALL Wyjdz 'Wwprowadzono nowe slowo” 
wyjdz: /* A to nasza procedura Wyjdz */ 
32 
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PARSE ARG Text 
'jJump to file' AktualnyPlik 


Okayl Text 
EXIT O 


Error: 








Okayl ERRORTEXT(RC) | |'0A'x||'in line '||SIGL 
ExIT 0 
Listing nr 6 / 
"POLSKIE ZNAKI 64" :09D1 9F 49 49 E2 F8 EA 84 7C (3E) 
$0801-$0F54 :09D9 7F 08 OB AC 32 62 5A FC (DE) 
EEE :09E1 7c 60 66 E7 FE 7D 29 61 (FF) 
:0801 0B 08 90 06 9E 32 30 34 (IE) :09E9 60 F6 5E 29 31 4D CB 09 (94) 
:0809 39 00 AO 00 78 E6 01 B9 (B5) :09F1 9E 24 22 1E OD OC 30 D2 (27) 
:0811 El 0E 99 40 03 c8 DO F7 (08) :09F9 2A 91 5E 71 Cc8 1C C8 FE (24) 
:0819 4c 40 03 36 62 0E OB 41 (61) :0A01 F2 23 EE FE D6 CE 82 C8 (D5) 
:0821 AO 04 Cc2 9C FF AO AO 18 (62) :0A09 76 76 7E 6E 6E 5B 59 24 (7E) 
:0829 20 99 FF A4 B6 6F 6C 00 (2C) :0A11 OD F3 60 60 10 26 2D 78 (DD) 
:0831 AO 48 8A 48 98 48 A9 7F (66) :0A19 66 6€c 36 00 A2 7B 7C 78 (33) 
:0839 8D 5C 57 AC OD DD 30 35 (A2) :0A21 6Cc Cc9 B8 92 87 E2 1E 7E (4A) 
:0841 20 BC F6 20 El FF DO 2D (BA) :0A29 5A 70 34 39 32 9F E6 F3 (83) 
:0849 20 A3 94 AF 15 FD 20 1B (3E) :0A31 56 02 00 3A c6 D6 FE EE (Cl) 
:0851 E5 A9 94 8D 00 DD A9 17 (05) :0A39 c6 58 OF 30 15 00 CE 82 (C1) 
:0859 E8 15 DO A9 01 8D 86 AD (EC) :0A41 13 A5 24 23 90 62 12 60 (3A) 
:0861 c4 8D 88 02 A9 68 8D 18 (3F) :0A49 30 30 31 47 75 27 25 25 (FO) 
:0869 03 A9 cO 8D 19 03 A2 FB (0F) :0A51 A9 43 18 8B 06 OC Cc8 00 (DC) 
:0871 9A 4C AF CO 4C 72 FE 20 (D2) :0A59 70 DB 0E 38 45 C3 B4 52 (FA) 
:0879 CC FF 4C 74 A4 48 Fl 05 (A2) :0A61 8D 03 64 28 17 80 68 CD (7D) 
:0881 FE 83 03 Fc 07 07 F8 0F (13) :0A69 00 19 8C C5 D4 7E 66 OC (9F) 
:0889 0E FO 1F 1C EQ 3F 38 CO (AE) :0A71 7E 30 2A 09 40 03 36 8B (1F) 
:0891 7F 70 80 FF EO 00 FF C1 (D5) :0A79 00 33 33 FO 60 4E 85 E2 (A9) 
:0899 01 FE 83 03 FC 07 07 F8 (3A) :0A81 AF 10 Fc 25 02 66 00 20 (50) 
:08A1 OF 0E 50 15 9c 99 6c 6C (0E) :0A89 1F 1F 01 c6 61 44 A2 18 (B6) 
:08A9 84 56 78 88 08 AB 70 30 (2C) :0A91 00 12 E6 Cc4 E4 3E 60 8c (69) 
:08B1 3E 09 33 4E 3D 19 E5 D7 (9C) :0A99 A1 7c 03 98 B9 3c 06 3E (C4) 
:08B9 FF 06 4c 66 3F 02 13 16 (C4) :0AA1 66 3F 06 C2 2E 05 7E 60 (1F) 
:08C1 FE 03 1c 36 1A 78 Cc5 59 (76) :0AA9 3E OC 4C CD 0A 50 18 F8 (9B) 
:08c9 96 91 24 2D AB EO 07 62 (81) :0AB1 F8 09 18 0E 64 CO 03 EQ (CE) 
:08D1 22 2A 11 03 lc F8 A7 6€ (DB) :0AB9 D9 ic 18 38 63 9E 3A 00 (35) 
:08D9 38 E0 60 66 6Cc 78 64 43 (51) :0ACI 00 D4 00 01 Oc 18 2A 5C (49) 
:08E1 38 32 DB 42 EC A2 25 76 (30) :0AC9 66 9D 01 03 06 6€c 78 70 (FO) 
:08E9 FC D4 70 E4 40 Fl 78 BE (93) :0ADI 60 44 16 20 AO 18 10 3c (85) 
:08F1 DC 06 7C FC Al 96 76 DC (08) :0AD9 66 60 66 3c 00 Oc 08 7E (9B) 
:08F9 cc 7c 94 63 EC 76 60 60 (0D) :0AE1 4C 18 32 7E 92 EF 51 00 (AO) 
:0901 FO CA FA 00 68 41 9B 1E (37) :0AE9 00 06 FO 18 OF EO 99 93 (81) 
:0909 30 36 1C 79 60 cO 22 61 (3€C) :0AF1 93 AO D5 1E 22 C2 8F CFE (5C) 
:0911 3c 83 E6 A5 17 7E 6€c C7 (35) :0AF9 C1 6A 82 CC 53 4F 46 F9 (79) 
:0919 83 36 3Cc 6c B2 8C FC E1 (23) :0B01 F5 3F F9 93 99 CO CO 84 (93) 
:0921 7C F5 A5 4C 18 32 92 71 (D9) :0B09 85 FF 80 E3 Cc9 46 87 71 (6D) 
:0929 01 30 DO A3 OC 1A 30 7€C (97) :0B11 96 65 24 49 CB 2A F8 81 (CF) 
:0931 30 62 Fc D9 84 01 OC 74 (14) :0B19 98 88 4A C4 00 E3 FE 29 (46) 
:0939 54 70 2C 08 10 30 7F 7F (FB) :0B21 93 Cc7 1F 9F 99 93 87 D9 (0E) 
:0941 30 10 58 93 El AC 25 AB (B6) :0B29 90 C7 OC B6 90 13 68 89 (BO) 
:0949 58 13 30 82 FF 66 FF 4C (20) :0B31 1D 03 35 1c 39 50 3C 9E (FF) 
:0951 DO 18 3E EO FD 7c 8c 63 (59) :0B839 23 AF 01 83 7F A8 89 23 (16) 
:0959 F7 53 50 80 AF 3c 3C 67 (9E) :0B41 33 83 25 E5 98 13 89 9F (A9) 
:0961 66 3B 6C 35 CB 90 5A 80 (2B) :0B49 9F OF B2 3E 00 5A DO A6 (1B) 
:0969 09 Oc 00 40 AE 19 8E 12 (01) :0B51 CF Cc9 E3 47 1E 18 BO 48 (B8) 
:0971 A9 FF 7B 5B 4B 7E 5D 22 (04) :08B859 c3 D8 60 19 E9 c5 81 93 (A5) 
:0979 4F 30 36 CE 02 64 42 22 (4B) :0B61 Fl Cc9 c3 93 AO 2Cc 23 7F (99) 
:0981 63 7A 38 CO F9 6E 76 07 (6€) :0B869 78 83 7D A9 B3 E7 CD 64 (Bl) 
:0989 4Cc 18 38 78 A3 54 C3 51 (9A) :08B871 5€ 00 CF F4 F3 E5 CF 83 (F3) 
:0991 1c FF 4E 32 02 76 06 0E (CE) :08B879 CF 9D 03 68 36 61 00 F3 (22) 
:0999 1E 36 TF 06 06 65 47 21 (36) :0B81 1D 15 1C 0B EF CF 80 80 (58) 
:09A1 60 91 90 c8 08 cc 08 98 (E4) :0B89 CF EF 02 D6 64 38 6B c9 (18) |Ą.BIŻE 
:09A9 5E 8F 43 20 31 49 1E 3E (E4) :0B891 2A D6 04 8Cc 20 00 99 00 (7D)IH-PIE 
:098B81 03 26 07 A6 Fl A2 38 0E (2F) :0B99 13 34 E7 C1 78 3F 83 E3 (57)RK0 
:09B9 C4 47 97 18 FA 8B 93 CE (D2) :0OBA1 9C FD 14 14 E0 2B C3 C3 (9D) 
:09c1 6D 8E 70 74 D4 A5 18 70 (9D) :0BA9 98 99 C4 5B CD 32 A4 16 (8F) 
:09c9 8E OF 06 1C A8 37 BC E9 (FE) :0BB1 60 02 F3 FF 90 6B 86 A3 (09) 
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CZE EE EKO ZEZZZÓZZECOOOEEOZEOZŻÓO ZOZ ZCCCON Z ÓZ COCO) 


:0BB9 44 EA 00 DE D6 52 81 97 (AD) :0D89 E0 OF 69 00 A8 68 A6 02 (21) 
:0BC1 C8 93 CF 8D B3 00 99 90 (89) :0D91 DO 08 CO 00 DO 04 C9 01 (6D) 
:0BC9 C8 98 1E 4E 3F FE 91 89 (CC) :0D99 FO D9 18 65 FC AA 98 65 (5C) 
:0BD1 01 D3 E7 C7 87 28 D5 70 (3A) :0DA1 FD 85 49 A4 11 FO 20 8A (45) 
:0BD9 E3 D4 BF 93 8C 80 5D F9 (07) :0DA9 38 E5 11 BO 03 C6 49 38 (1D) 
:0OBEl1 Fl El C9 80 F9 F9 D9 51 (24) :0DB1 85 48 A5 FC E5 11 BO 02 (71) 
:0BE9 08 58 24 24 32 02 33 02 (23) :0DB9 C6 FD 85 FC B1 48 88 91 (6A) 
:0BFl1 A6 D7 E3 10 48 4C 92 C1 (6F) :0DC1 FC DO F9 C4 12 FO 89 B1 (A6) 
:0BF9 C7 80 C9 81 69 BC 28 0E (27) :0DC9 48 C6 FD C6 49 Cc6 12 10 (C8) 
:0C01 Fl Fl D1 A5 E7 FE E2 A4 (AC) :0DD1 ED 00 04 OC 1E 3E 7F CE (FA) 
:0C09 73 9B 23 8F 1D 75 A9 E7 (89) :0DD9 FF 00 08 13 26 46 86 CF (CD) 
:0C11 8F E3 F9 E3 03 EA OD 6F (47) :0DE1 00 80 02 03 04 05 06 06 (8C) 
:0C19 FA 67 52 92 B8 07 3A 83 (9B) :0DE9 06 07 03 03 04 05 06 06 (AB) 
:0C21 El 1F C2 02 AB 8C 98 16 (11) :0DF1 06 07 07 97 11 9A 18 E5 (44) 
:0029 03 1F 99 DB 79 01 5F 4A (ED) :0DF9 78 AO 00 84 FB A9 DO 85 (83) 
:0C31 98 9F BD 57 4A 4C D3 72 (35) :0E01 FC A9 34 19 7C 53 A2 08 (69) 
:0C39 82 27 89 48 El 03 F3 8C (4C) :0E09 c6 01 B1 FB E6 01 91 FB (31) 
:0041 B4 4A A4 57 1iC 32 07 B2 (56) :0E1l C8 DO F5 E6 FC CA DO FO (D6) 
:0049 01 FC 88 ll 01 29 B3 20 (0A) :0E19 A9 37 85 01 F3 1B 31 00 (89) 
:0C51 F2 89 89 81 91 91 56 16 (45) :0E21 8D 20 DO 8D 21 1Cc 88 02 (B5) 
:0C59 49 Cc3 3Cc 9F 9F 84 49 OB (EE) :0E29 00 E0 39 OD B9 27 OD 99 (80) 
:00C61 9E 99 93 C9 FF E8 5E 83 (2F) :0E31 1C 07 C€8 DO F7 20 31 07 (23) 
:0C69 87 93 32 AE E4 Al B8 81 (BA) :0E39 FO 46 20 31 07 DO 30 20 (3A) 
:0C71 A5 07 1Cc 4D 8E CC E7 19 (5F) :0E41 30 07 69 02 c9 04 90 27 (FD) 
:0C79 BC 95 80 FF 0E 39 29 01 (AA) :0E49 DO 07 20 31 07 69 04 DO (8E) 
:00C81 11 39 D6 03 4C 85 FF B3 (C9) :0E51 1E 20 2F 07 69 06 C9 OD (7E) 
:0C89 E0 44 29 C9 08 A4 98 44 (E4) :0E59 DO 11 C8 20 2F 07 69 OD (8D) 
:0C91 9F CF CF CC 8A D8 DA DA (FF) :0E61 C9 0E DO 07 AO 01 20 32 (76) 
:0C99 51 EA E7 DO F9 F3 22 32 (CC) :0E69 07 69 1D EE 00 04 EA 85 (05) 
:0CA1 FF 8F 24 Fl 4E D1 30 AD (IE) :0571 11 A6 FE A5 FF 20 97 07 (7E) 
:0CA9 54 E3 00 19 CA 05 20 5A (F3) :0E79 A5 49 85 FF A5 48 85 FE (C5) 
:0CB1 33 40 06 63 31 81 99 F3 (DO) :0E81 20 31 07 85 02 FO 14 O0A (CO) 
:0CB9 81 CF B5 4A 02 90 FC CD (El) :0E89 2C A9 03 85 11 20 2F 07 (C8) 
:00CC1 33 33 CC cc OF 9F 22 AC (4D) :0E91 A6 02 DO 02 69 08 20 6B (36) 
:0CC9 50 FC B5 EF 03 44 99 FF (C6) :0E99 07 FO 9A 20 31 07 FO E9 (D3) 
:0CD1 00 24 EO EO CO 38 8C 08 (69) :0EA1 20 30 07 69 04 c9 06 90 (5€) 
:0CD9 FO E7 FF 40 E6 C4 E4 C1 (FA) :0EA9 E2 DO 07 20 30 07 69 06 (F7) 
:0CE1 9F 8C Al 83 03 98 B9 C3 (59) :0EB1 DO D9 AO 05 20 32 07 69 (7A) 
:0CE9 F9 Cl 99 CO F9 C2 2E 05 (0E) :0EB9 OA C9 0A FO OD c9 OC DO (OC) 
:0CF1 81 9F C1 F3 4C CD 0A 50 (DB) :0EC1 CA AO 04 20 32 07 69 FF (60) 
:0CF9 E7 07 07 09 E7 0E 64 3F (BE) :0EC9 DO C1 AO 09 20 32 07 A6 (5A) 
:0D0O1 03 1F D9 E3 E7 C7 63 9E (38) :0ED1 10 86 12 90 B6 A9 00 85 (1D) 
:0D09 3A 00 FF D4 00 EO AO F3 (D5) :0ED9 2D A9 EO 85 2E 4C 00 CO (C8) 
:0D11 E7 C2 99 D5 49 FE FC F9 (B5) :0EE1 C6 01 58 A7 AŻ CD 12 DO (51) 
:0D19 93 87 8F 9F 64 01 02 E7 (30) :0EE9 DO 34 A2 06 A9 FF 95 F8 (47) 
:0D21 EF C3 99 9F 99 C3 FF F3 (0A) :0EF1 BD 90 03 95 F7 CA CA 10 (CE) 
:0D29 F7 81 B3 E7 CD 81 2A F9 (D9) :0EF9 F3 A2 12 BD AQ0 03 4D 5E (A5) 
:0D31 1E 05 FF 60 OF 80 FO AA (0E) :0FO1 03 9D E8 07 CA 10 F4 A9 (67) 
:0D39 41 C8 C8 C8 A9 00 85 10 (FF) :0F09 13 A2 E8 AO 07 20 97 03 (C3) 
:0D41 A6 FB 30 OD 06 FA 2A 26 (FE) :0Fll A9 OF A8 A2 08 20 94 03 (73) 
:0D49 10 C6 FB 88 DO F2 AA 18 (25) :0F19 20 9A 03 20 9b 03 29 00 (47) 
:0D51 60 48 Al FF 85 FA A2 07 (48) :0F21 A8 78 E6 01 B9 27 0E 99 (2F) 
:0D59 86 FB E4 FF A6 FE DO 02 (7€) :0F29 FA 00 C8 DO F7 4Cc 00 01 (6D) 
:0D61 Cc6 FF C6 FE 68 90 DD EO (EF) :0F31 BA BD CO E7 6C F7 00 6€ (96) 
:0D69 E7 DO D9 A9 37 85 01 58 (24) :0F39 F9 00 6c FB 00 6C€ FD 00 (E4) 
:0D71 4C 00 CO A9 10 85 04 AA (88) :0F41 4D 7D 77 0E 02 01 1A 14 (9A) 
:0D79 BC DB 07 20 32 07 A6 04 (55) :0F49 03 62 19 05 08 6D OB 02 (91) 
:0D81 7D C7 07 48 A5 10 69 00 (46) :0F51 1F OE 08 09 03 08 6D 60 (11) 


Listing nr 7 





0 REM ZARLOCZNY ROBACZEK — GRA 

1 REM (C) PAWEL SOLTYSINSKI 

2 REM 1992 COMMODORE KEBAB 

3.8 

5 DIM AD%(39,24):PRINTCHR$(147);"PROSZE CHWILE POCZEKAC...":DIM OG%(1000) 
10 DEF FN A(X)=1024+40*Y+X 

20 FOR X=0TO39:FORY=0TO024:AD%(X,Y)=FNA(X):NEXT:NEXT 

30 DIM J%(15):J(1)=1:J(2)=2:J(4)=3:J(8)=4 

40 POKE53280,0:POKE53281,0:PRINTCHR$(5);CHR$(147);CHR$(14);CHR$ (8); 
50 FOR X=0TO39:POKEAD%(X,1),95:POKEAD%(X,24),95:NEXT 

60 FORY=1TO23:POKEAD%(0,Y),95:POKEAD%(39,Y),95:NEXT 

34 


ŁENDANR Nr 6 '92 





COMMODORE 








PRINTTAB(9);"WCISNIJ GUZIK NA JOYĘŻ2" 
WAIT 56320,16,16 :FORT=0TO39:POKEAD$%(T,0), 32:NEXT 
A=0:B=1:OG%(0)=AD%(19,10):0G%(1)=AD$%(19,11):S1=0:52=1:X=19:Y=11:P=1:SC=-1 
FORT=0TO39:POKEAD%(T,0),32:NEXT :PRINTCHR$(19);"WYNIK:";0 :01=X:02=Y 
IF X=Ol AND Y=O2 THENSC=SC+1:PRINTCHR$ ( 19) ;TAB(6) ; SC:GOSUB200:P=0 
I=PEEK(0G%(S2)):IFI=37 OR I=95 THEN300 
POKE OG%(S2),35 
J=s15-(PEEK(56320)AND15):IFJ=OTHEN130 
ON J(J) GOSUB 400,500,600,700 
IFP=OTHEN 140 
S1=S1+1:IFS1=1000 THENS1=0 
P=1:POKE(OG%(S2)),37:S2=S2+1:IFS2=1000THENS2=0 
=X+A:Y=SY+B:OG%(S2)=AD%(X,Y) 
POKE 0OG%(S1),32 
GOTo 100 
O1=INT(RND(TI)*37+1):02=INT(RND(TI)*21+2) 
IF PEEK(AD%(01,02))<>32THEN200 
POKE53280,2:POKE AD%(01,02),79:POKE53280,0 
Bl=INT(RND(TI)*37+1):B2=INT(RND(TI)*21+2) 
IF PEEK(AD%(B1l,B2) )<>32THEN240 
POKE AD%(B1,B2) ,95:RETURN 
POKE OG%(S2),35 :FORT=255T00STEP-1:POKE53280,T:NEXT:PRINTCHRŚ ( 19 ) 3; TAB( 15); 
PRINT"GAME OVERI":WAIT 56320,16,16:GOTO040 
A=0:B=-1:RETURN 
A=0:B=l:RETURN 
A=— 1 :B=0 : RETURN 
A=1:B=0:RETURN 


READY. 


Listing nr 8 


A5000 LDA $$00 A5044 BNE $503B 
A5002 STA $DO20 A5046 LDX $$00 

A5005 STA $D021 A5048 LDA $5100,x 

A5008 LDA %$93 A504B BEQ $5053 

A500A JSR $FFD2 A504D JSR $FFD2 

A500D LDX 4$00 A5050 INX 

A500F LDA $5080,x A5051 BNE $5048 

A5012 BEQ $501A A5053 LDA $$3F 

A5014 JSR $FFD2 A5055 JSR $FFD2 

A5017 INX A5058 LDA $$20 

A5018 BNE $500F A505A JSR $FFD2 

A501A LDX $$00 A505D JSR $FFD2 

A501C JSR $FFCF A5060 LDX 4$00 

A501F CMP $$0D A5062 LDA $50A0,X 

A5021 BEQ $5029 A5065 BEQ $506D 

A5023 STA $5100,x A5067 JSR $FFD2 

A5026 INX A506A INX 

A5027 BNE $501C A506B BNE $5062 

A5029 TAY A506D JSR $FFE4 

A502A LDA +$00 A5070 BEQ $506D 

A502€ STA $5100,X A5072 RTS 

A502F TYA 

A5030 JSR $FFD2 M5080 4A 41 4B 20 4D 41 53 5A 
A5033 JSR $FFD2 M5088 20 4E 41 20 49 4D 49 45 
A5036 JSR $FFD2 M5090 20 3F 20 20 00 BD BD BD 
A5039 LDX %$00 M5098 4A 41 4B 20 3F 20 20 00 
AS03B LDA $5098,X M50A0 4E 49 45 42 52 5A 59 44 
A503E BEQ 5046 M50A8 4B 4F 2E 2E 2E 21 00 BD 
A5040 JSR $FFD2 

A5043 INX 





Drodzy Czytelnicy, 

ze smutkiem przyjęliśmy fakt, że pan Krzy- 
sztof Moroń nie był uprzejmy dokończyć 
rozpoczętego dzieła. Niemniej jednak ma- 
my w zamiarach powrócenie do tematu 
AMOS natychmiast, gdy w gronie reda- 
kcyjnym znajdzie się odpowiedzialna oso- 


Nr 6 '92 


ba będąca w stanie poprowadzić cykl 
artykułów dotyczących tego doskonałego 
i zdobywającego coraz więcej zwolenni- 
ków języka programowania. Wtedy rów- 
nież odpowiemy na pozostałe pytania 
dotyczące AMOS'a zawarte w cytowanych 
powyżej, oraz wielu innych listach. 


KEDAD 


Cześć Kebabie! 

Kto wam tak 'spartaczył" majowy 
numer? Niektóre wyrazy nie dają 
się w ogóle odczytaćl... 


Odpowiedź: profesjonaliści! 

Ten numer składamy ponownie po ama- 
torsku sami... Mamy nadzieję, że da się 
przeczytać.. 


35 
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